UploadLanguage (EN)Support
BusinessMobileSocial MediaMarketingTechnologyArt & PhotosCareerDesignEducationPresentations & Public SpeakingGovernment & NonprofitHealthcareInternetLawLeadership & ManagementAutomotiveEngineeringSoftwareRecruiting & HRRetailSalesServicesScienceSmall Business & EntrepreneurshipFoodEnvironmentEconomy & FinanceData & AnalyticsInvestor RelationsSportsSpiritualNews & PoliticsTravelSelf ImprovementReal EstateEntertainment & HumorHealth & MedicineDevices & HardwareLifestyle
Upload
Sign in
Lin Yo-An, profile picture
Uploaded byLin Yo-An
108,873 views

Perl.Hacks.On.Vim

This document discusses how Vim can improve productivity for Perl coding. It provides examples of using Vim motions and modes like Normal mode, Insert mode, and Visual mode to efficiently edit code. It also covers Vim features like syntax highlighting, custom syntax files, key mappings, and text objects that are useful for Perl. The document advocates that Vim is a powerful editor rather than an IDE and highlights how it can save significant time compared to less efficient editing methods.

Downloaded 799 times
1 / 225
2 / 225
3 / 225
4 / 225
5 / 225
6 / 225
7 / 225
8 / 225
9 / 225
10 / 225
11 / 225
12 / 225
13 / 225
14 / 225
15 / 225
16 / 225
17 / 225
18 / 225
19 / 225
20 / 225
Perl Hacks on Vim Lin You-An c9s / Cornelius pause id: CORNELIUS
HI
I am Lin You-An
Taiwan
VIM & Perl
how can vim improve perl coding productivity
The worst way to edit
#!/usr/bin/env perl my $hppiness = yapcasia->join();
#!/usr/bin/env perl my $hppiness = yapcasia->join(); Oops! lost “a”
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join(); xN
#!/usr/bin/env perl my $hppiness = yapcasia->join();
#!/usr/bin/env perl my $happiness = yapcasia->join();
#!/usr/bin/env perl my $happiness = yapcasia->join(); if this costs 4 sec
#!/usr/bin/env perl my $happiness = yapcasia->join(); if this costs 4 sec if x 50 times this kind of situation per day
#!/usr/bin/env perl my $happiness = yapcasia->join(); if this costs 4 sec if x 50 times this kind of situation per day
#!/usr/bin/env perl my $happiness = yapcasia->join(); if this costs 4 sec if x 50 times this kind of situation per day and you work for more than 300 day per year = 16.6 hours
#!/usr/bin/env perl my $happiness = yapcasia->join(); if this costs 4 sec x 50 times this kind of situation per day ? and you work for more than 300 day per year = 16.6 hours
#!/usr/bin/env perl my $happiness = yapcasia->join(); if this costs 4 sec Awful x 50 times this kind of situation per day ? and you work for more than 300 day per year = 16.6 hours
What can you do in 16.6 hours
with family
with friends
kids
or more hacking
sleep...
anyway , time is money
The VIM way...
VIM: #!/usr/bin/env perl my $hppiness = yapcasia->join(); F h
VIM: #!/usr/bin/env perl my $happiness = yapcasia->join(); a ppend a
VIM: #!/usr/bin/env perl my $happiness = yapcasia->join(); f y
VIM: #!/usr/bin/env perl my $happiness = Yapcasia->join(); ~
VIM: #!/usr/bin/env perl my $happiness = YApcasia->join(); ~
VIM: #!/usr/bin/env perl my $happiness = YAPcasia->join(); ~
VIM: #!/usr/bin/env perl my $happiness = YAPCasia->join(); ~
So What is VIM ?
VIM is not an IDE
VIM is an Editor
VI Improved
Move More Efficiently.
Learning Curve
Features
1. Mode
More Than 4 Edit Mode
INSERT NORMAL VISUAL SELECT ... et cetera
ESC [Ii]NSERT NORMAL [Vv]ISUAL
1.1 Normal Mode
Motion
HJKL ←↓↑→
h ,j ,k ,l H ,M ,L w ,e ,b f[x] , t[x] [{ , ]} , % ( ,) ,{ ,}
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; Cursor } sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something [{ my @outs = grep /pattern/ , @list; } sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } f@ sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } $ sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } ^ sub func1 { }
# comments ... H foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; M } sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { } L
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } C Insert mode sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { }
# comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } % sub func1 { }
:h motion.txt
1.2 Insert Mode
Editing text
Insert Mode • i : Insert text before the cursor
Insert Mode • i : Insert text before the cursor • I : Insert text before the first non-blank in the line
Insert Mode • i : Insert text before the cursor • I : Insert text before the first non-blank in the line • a : Append text after the cursor
Insert Mode • i : Insert text before the cursor • I : Insert text before the first non-blank in the line • a : Append text after the cursor • A : Append text at the end of the line
1.3 Visual Mode
Select region
Visual Mode • v : start Visual mode per character.
Visual Mode • v : start Visual mode per character. • V : start Visual mode linewise.
Visual Mode • v : start Visual mode per character. • V : start Visual mode linewise. • Ctrl-v : start Visual mode blockwise.
Visual Mode • v : start Visual mode per character. • V : start Visual mode linewise. • Ctrl-v : start Visual mode blockwise. operator y (yank) , d (delete) , c (change) ... etc
2. Syntax Highlight Support
/opt/local/share/vim/vim72 $ ls -1 syntax/ | wc -l 520 more than 500 syntax files
Customizable Syntax
Perl needs syntax
but we design more syntax in Perl
Modules need syntax too
Template::Declare template simple => sub { html { head {} body { p {'Hello, world wide web!'} } } }; # ... templates
package MyView; use Markapl; tempalte '/a/page.html' => sub { h1("#title") { "Hi" }; p(".first") { "In the begining, lorem ipsum...." }; p(style => "color: red;") { "But...." }; }
Jifty::DBI::Schema package TestApp::Model::Phone; use Jifty::DBI::Schema; use Jifty::DBI::Record schema { column user => references TestApp::Model::User by 'id', is mandatory; column type => ...; column value => ...; };