![ESC
[Ii]NSERT
NORMAL
[Vv]ISUAL](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-55-320.jpg)
![h ,j ,k ,l
H ,M ,L
w ,e ,b
f[x] , t[x]
[{ , ]} , %
( ,) ,{ ,}](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-61-320.jpg)
![~/.vim/syntax/[filetype].vim](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-99-320.jpg)
![~/.vim/syntax/[filetype].vim
syn match [id] [re] [options]](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-100-320.jpg)
![~/.vim/syntax/[filetype].vim
syn match [id] [re] [options]
syn region [id] start=[re] end=[re]](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-101-320.jpg)
![~/.vim/syntax/[filetype].vim
syn match [id] [re] [options]
syn region [id] start=[re] end=[re]
syn keyword [id] [keyword] ...](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-102-320.jpg)
![~/.vim/syntax/[filetype].vim
syn match [id] [re] [options]
syn region [id] start=[re] end=[re]
syn keyword [id] [keyword] ...
hi [id] guibg=[color] ctermfg=[color]](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-103-320.jpg)
![Operator Mapping
v|c|d i|a { | [ | ( |“ |‘
visual Region
change Inner Object {}
delete An Object []
()
““
Operator ‘‘](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-118-320.jpg)
![*za*
za When on a closed fold: open it. When folds are nested, you
may have to use "za" several times. When a count is given,
that many closed folds are opened.
za When on an open fold: close it and set 'foldenable'. This
will only close one level, since using "za" again will open
zA
the fold. When a count is given that many folds will be
closed (that's not the same as repeating "za" that many
times).
*zA*
zA When on a closed fold: open it recursively.
zm When on an open fold: close it recursively and set
zM
zm Fold more: Subtract one from 'foldlevel'. If 'foldlevel' was
already zero nothing happens.
zr 'foldenable' will be set.
*zM*
zR zM Close all folds: set 'foldlevel' to 0.
'foldenable' will be set.
zj , zk
[z , ]z](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-147-320.jpg)
![:grep [pattern] [filepath]](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-151-320.jpg)
![Javascript::Beautifier
[localhost]$ cat bin/js_beautifier
#!/usr/bin/env perl
use JavaScript::Beautifier qw/js_beautify/;
local $/;
$js_source_code = <STDIN>;
my $pretty_js = js_beautify( $js_source_code, {
indent_size => 2,
indent_character => ' ',
} );
print $pretty_js;
autocmd Filetype javascript
:set equalprg=js-beautify.pl
command! -range JSF :'<,'>!/Users/c9s/bin/js_beautify.pl](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-168-320.jpg)
![Morse Encoder
use Convert::Morse qw(as_ascii as_morse is_morsable);
print as_morse( $_ ) . “n” for ( <STDIN> );
command! -range Morse :'<,'>!/Users/c9s/bin/morse-encode.pl
sub handler_start {
my ( $kernel, $heap, $session ) = @_[ KERNEL, HEAP, SESSION ];
print "Session ", $session->ID, " has started.n";
$heap->{count} = 0;
$kernel->yield('increment');
}
... ..- -... .... .- -. -.. .-.. . .-. ..--.- ... - .- .-. - {
-- -.-- -.--. $-.- . .-. -. . .-.. --..-- $.... . .- .--. --..-- $... . ... ... .. --- -. -.--.- -...- .--.-. ..--.- [ -.-
.--. .-. .. -. - .-..-. ... . ... ... .. --- -. .-..-. --..-- $... . ... ... .. --- -. -....- >.. -.. --..-- .-..-. .... .- .
$.... . .- .--. -....- >{-.-. --- ..- -. - } -...- ----- -.-.-
$-.- . .-. -. . .-.. -....- >-.-- .. . .-.. -.. -.--. .----. .. -. -.-. .-. . -- . -. - .----. -.--.- -.-.-
}](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-170-320.jpg)
![Install CPAN Module from <cWORD>
nmap <C-x><C-i> :call InstallCPANModule()<CR>
function! InstallCPANModule()
let l = getline('.')
let cw = substitute( expand('<cWORD>') , ";$" , "" , "g" )
let cw = substitute( cw , "['"]" , "" , "g" )
echo "Installing CPAN Module: " . cw . "n"
silent exec "!cpanp i " . cw . " >& /dev/null"
echo "Donen"
endfunction](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-175-320.jpg)
![Pod Helper
fu! PodHelperFunctionHeader()
let subname = substitute( getline('.') , 'subs+(w+)s
+.*$' , '1' , "" )
let lines = [
'=head2 ' . subname ,
'' ,
'' ,
'' ,
'=cut' ,
'',
]
for text in lines
:call append( line('.') - 1 , text )
endfor
:call cursor( line('.') - len( lines ) + 2 , 1 )
endf
nmap <leader>pf :call PodHelperFunctionHeader()<CR>](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-179-320.jpg)
![:perl VIM::Msg("Text") # displays a message
:perl VIM::Msg("Error", "ErrorMsg") # displays an error message
:perl VIM::Msg("remark", "Comment") # displays a highlighted message
:perl VIM::SetOption("ai") # sets a vim option
:perl $nbuf = VIM::Buffers() # returns the number of buffers
:perl @buflist = VIM::Buffers() # returns array of all buffers
:perl $mybuf = (VIM::Buffers('qq.c'))[0] # returns buffer object for 'q
:perl @winlist = VIM::Windows() # returns array of all windows
:perl $nwin = VIM::Windows() # returns the number of windows
:perl ($success, $v) = VIM::Eval('&path') # $v: option 'path', $success
:perl ($success, $v) = VIM::Eval('&xyz') # $v: '' and $success: 0
:perl $v = VIM::Eval('expand("<cfile>")') # expands <cfile>
:perl $curwin->SetHeight(10) # sets the window height
:perl @pos = $curwin->Cursor() # returns (row, col) array
:perl @pos = (10, 10)
:perl $curwin->Cursor(@pos) # sets cursor to @pos
:perl $curwin->Cursor(10,10) # sets cursor to row 10 col 10](https://image.slidesharecdn.com/perl-hacks-on-vim-perlchina-091025023751-phpapp02/85/Perl-Hacks-On-Vim-Perlchina-186-320.jpg)
Perl.Hacks.On.Vim Perlchina
- 1. Perl Hacks on Vim Lin You-An c9s / Cornelius pause id: CORNELIUS
- 2. Lin You-An
- 3. VIM & Perl
- 4. how can vim improve perl coding productivity vim coding 产 ?
- 5. The worst way to edit 编辑
- 6. #!/usr/bin/env perl my $hppiness = PerlChina->join();
- 7. #!/usr/bin/env perl my $hppiness = PerlChina->join(); Oops! lost “a”
- 8. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 9. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 10. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 11. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 12. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 13. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 14. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 15. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 16. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 17. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 18. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 19. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 20. #!/usr/bin/env perl my $hppiness = PerlChina->join(); xN
- 21. #!/usr/bin/env perl my $hppiness = PerlChina->join();
- 22. #!/usr/bin/env perl my $hppiness = PerlChina->join();
- 23. #!/usr/bin/env perl my $hppiness = PerlChina->join(); if this costs 4 sec
- 24. #!/usr/bin/env perl my $hppiness = PerlChina->join(); if this costs 4 sec if x 50 times this kind of situation per day
- 25. #!/usr/bin/env perl my $hppiness = PerlChina->join(); if this costs 4 sec if x 50 times this kind of situation per day
- 26. #!/usr/bin/env perl my $hppiness = PerlChina->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
- 27. #!/usr/bin/env perl my $hppiness = PerlChina->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
- 28. #!/usr/bin/env perl my $hppiness = PerlChina->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
- 29. What can you do in 16.6 hours
- 33. or more hacking
- 34. sleep...
- 35. 时间 钱
- 36. The VIM way...
- 37. VIM: #!/usr/bin/env perl my $hppiness = perlchina->join(); F h
- 38. VIM: #!/usr/bin/env perl my $hppiness = perlchina->join(); a ppend a
- 39. VIM: #!/usr/bin/env perl my $hppiness = perlchina->join(); f P
- 40. VIM: #!/usr/bin/env perl my $hppiness = Perlchina->join(); ~
- 41. VIM: #!/usr/bin/env perl my $hppiness = PErlchina->join(); ~
- 42. VIM: #!/usr/bin/env perl my $hppiness = PERlchina->join(); ~
- 43. VIM: #!/usr/bin/env perl my $hppiness = PERLchina->join(); ~
- 44. So What is VIM ?
- 45. VIM IDE
- 46. VIM is an Editor
- 47. VI Improved
- 48. Move More Efficiently. 动
- 51. Features
- 52. 1. Mode
- 53. More Than 4 Edit Mode
- 54. INSERT NORMAL VISUAL SELECT ... et cetera
- 55. ESC [Ii]NSERT NORMAL [Vv]ISUAL
- 56. 1.1 Normal Mode
- 57. Motion
- 60. HJKL ←↓↑→
- 61. h ,j ,k ,l H ,M ,L w ,e ,b f[x] , t[x] [{ , ]} , % ( ,) ,{ ,}
- 62. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { }
- 63. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; Cursor } sub func1 { }
- 64. # comments ... foreach my $foo ( @bar ) { # do something [{ my @outs = grep /pattern/ , @list; } sub func1 { }
- 65. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } f@ sub func1 { }
- 66. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } $ sub func1 { }
- 67. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } ^ sub func1 { }
- 68. # comments ... H foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { }
- 69. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; M } sub func1 { }
- 70. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { } L
- 71. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { }
- 72. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep } C Insert mode sub func1 { }
- 73. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } sub func1 { }
- 74. # comments ... foreach my $foo ( @bar ) { # do something my @outs = grep /pattern/ , @list; } % sub func1 { }
- 75. :h motion.txt
- 76. 1.2 Insert Mode
- 77. Editing text
- 78. Insert Mode • i : Insert text before the cursor
- 79. Insert Mode • i : Insert text before the cursor • I : Insert text before the first non-blank in the line
- 80. 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
- 81. 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
- 82. 1.3 Visual Mode
- 83. Select region
- 84. Visual Mode • v : start Visual mode per character.
- 85. Visual Mode • v : start Visual mode per character. • V : start Visual mode linewise.
- 86. Visual Mode • v : start Visual mode per character. • V : start Visual mode linewise. • Ctrl-v : start Visual mode blockwise.
- 87. 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
- 88. 2. Syntax Highlight Support
- 89. /opt/local/share/vim/vim72 $ ls -1 syntax/ | wc -l 520 more than 500 syntax files
- 90. Syntax
- 91. Perl code needs syntax
- 92. but we design more syntax in Perl. Perl
- 93. Modules need syntax too
- 94. Template::Declare template simple => sub { html { head {} body { p {'Hello, world wide web!'} } } }; # ... templates
- 97. package MyView; use Markapl; tempalte '/a/page.html' => sub { h1("#title") { "Hi" }; p(".first") { "In the begining, lorem ipsum...." }; p(style => "color: red;") { "But...." }; }
- 98. 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 => ...; };
- 100. ~/.vim/syntax/[filetype].vim syn match [id] [re] [options]
- 101. ~/.vim/syntax/[filetype].vim syn match [id] [re] [options] syn region [id] start=[re] end=[re]
- 102. ~/.vim/syntax/[filetype].vim syn match [id] [re] [options] syn region [id] start=[re] end=[re] syn keyword [id] [keyword] ...
- 103. ~/.vim/syntax/[filetype].vim syn match [id] [re] [options] syn region [id] start=[re] end=[re] syn keyword [id] [keyword] ... hi [id] guibg=[color] ctermfg=[color]
- 105. " Fold Jifty Templates syn region jifty_td_fold start=+^(privates+)=templates+ end=+^};+ transparent fold keepend " Fold Jifty Template Delcare Tags syn region jifty_tag_fold start="^z(s*)<(div|table|row|form|script| cell|row|th|tfoot)>s*{" end="^z1};=" fold keepend
- 106. Fold Jifty::DBI schema columns and action params syn region jfscolumn start=+^s*(param|column)>+ end=+;+ contained contains=jfspropertybe,jfsproperty,jfscol,jfscolname, perlComment, perlString, perlFunction, perlFloat, perlNumber, perlSpecialString, perlStringUnexpanded fold
- 107. :help syntax.txt
- 108. 4. key mapping
- 110. :map (all) :nmap (normal mode) :vmap (visual mode) :imap (insert mode) :smap (select mode) :xmap (visual , select mode) ... more
- 111. :nmap <C-c><C-c> :!perl -Wc % Ctrl C Ctrl C let perl check current perl script syntax
- 112. use Tab and Shift-Tab to indent region , instead of “>” and “<“ nmap <tab> v> nmap <s-tab> v< vmap <tab> >gv vmap <s-tab> <gv
- 113. imap <F2> <C-R>=strftime("%c")<CR> imap <F2> <C-R>=system(‘perl -MDateTime -e DateTime->now’)<CR> to insert timestamp
- 114. cmap <c-a> <home> cmap <c-e> <end> cnoremap <c-b> <left> cnoremap <c-d> <del> cnoremap <c-f> <right> cnoremap <c-n> <down> cnoremap <c-p> <up> cnoremap <esc><c-b> <s-left> cnoremap <esc><c-f> <s-right> support bash-like key mapping
- 115. :h map.txt
- 116. 5. Text Object
- 117. Text Object • word • string ⇛ action • paragraph (yank,delete,change ...etc) • block
- 118. Operator Mapping v|c|d i|a { | [ | ( |“ |‘ visual Region change Inner Object {} delete An Object [] () ““ Operator ‘‘
- 119. va{
- 121. sub( blah , blah ) ci( sub( ) sub( new_args )
- 122. “Hello World” di” “” “Hello New World”
- 123. Vim7.1 Comes with tag block region
- 124. <aaa> Hola </aaa> vit <aaa> Hola </aaa> Visual Select
- 125. Alias "dl" delete character (alias: "x") |dl| "diw" delete inner word *diw* "daw" delete a word *daw* "diW" delete inner WORD (see |WORD|) *diW* "daW" delete a WORD (see |WORD|) *daW* "dd" delete one line |dd| "dis" delete inner sentence *dis* "das" delete a sentence *das* "dib" delete inner '(' ')' block *dib* "dab" delete a '(' ')' block *dab* "dip" delete inner paragraph *dip* "dap" delete a paragraph *dap* "diB" delete inner '{' '}' block *diB* "daB" delete a '{' '}' block
- 126. 8. FOLDS
- 127. FOLD IS
- 129. Fold Methods
- 130. Fold Methods Syntax Fold
- 131. Fold Methods Syntax Fold :set foldmethod=syntax set fold method as syntax , check out more options in: $VIMRUNTIME/syntax/*.vim
- 132. Perl built-in syntax /opt/local/share/vim/vim72/syntax/perl.vim if exists("perl_want_scope_in_variables") “ ..... if exists("perl_extended_vars") “ ..... if exists("perl_fold") “ ..... you can enablethose features in your .vimrc let perl_fold = 1 let perl_extended_vars = 1 “ .... etc
- 133. for complex things like @{${"foo"}}. let perl_include_pod = 1 let perl_extended_vars = 1 let perl_want_scope_in_variables = 1 let perl_fold = 1 let perl_fold_blocks = 1 for something like $pack::var1
- 134. Fold Methods Syntax Fold Marker Fold
- 135. Fold Methods Syntax Fold Marker Fold :set foldmethod=marker fold region by markers , the default marker is “{{{“ , “}}}”
- 136. # fold this {{{ sub do_something { # a lot of work ... } # }}}
- 137. # fold this {{{ sub do_something { # a lot of work ... # foldlevel 2 {{{2 # foldlevel 4 {{{4 # }}}4 # foldlevel here is 3 # }}}2 } # }}}
- 139. Fold Methods Syntax Fold Marker Fold Indent Fold
- 140. Fold Methods Syntax Fold Marker Fold Indent Fold :set foldmethod=indent use indent to fold
- 141. Fold Methods Syntax Fold Marker Fold Indent Fold Manual Fold
- 142. :set foldmethod=manual create folds manually
- 143. autocmd BufWinLeave *.* silent mkview autocmd BufWinEnter *.* silent loadview autocmd mkview , loadview ~/.vim/view/
- 144. Fold Methods Syntax Fold Marker Fold Indent Fold Manual Fold Expr Fold (Custom Fold Function)
- 145. :set foldexpr=MyFoldLevel(v:lnum) customized fold function
- 146. Fold Methods Syntax Fold Marker Fold Indent Fold Manual Fold Expr Fold (Custom Fold Function) Diff Fold
- 147. *za* za When on a closed fold: open it. When folds are nested, you may have to use "za" several times. When a count is given, that many closed folds are opened. za When on an open fold: close it and set 'foldenable'. This will only close one level, since using "za" again will open zA the fold. When a count is given that many folds will be closed (that's not the same as repeating "za" that many times). *zA* zA When on a closed fold: open it recursively. zm When on an open fold: close it recursively and set zM zm Fold more: Subtract one from 'foldlevel'. If 'foldlevel' was already zero nothing happens. zr 'foldenable' will be set. *zM* zR zM Close all folds: set 'foldlevel' to 0. 'foldenable' will be set. zj , zk [z , ]z
- 148. :h folding
- 149. 10. QuickFix
- 150. :grep
- 152. Result ⇛ QuickFix Window
- 153. QuickFix Window
- 155. :copen
- 156. :cclose
- 157. :cnext
- 158. :cprevious
- 159. QuickFix Window Toggle com! -bang -nargs=? QFix cal QFixToggle(<bang>0) fu! QFixToggle(forced) if exists("g:qfix_win") && a:forced == 0 cclose unlet g:qfix_win else copen 10 let g:qfix_win = bufnr("$") en endf nn <leader>q :QFix<cr> nmap to “q” , the default <leader> key is “”
- 160. 9. Helpful Settings
- 161. Should we re-indent code manually ?
- 162. PerlTidy++
- 164. :set equalprg=perltidy to re-format a region , set perltidy as your reformater then press “=” , it will pass to perltidy
- 165. autocmd Filetype perl :set equalprg=perltidy when filetype is perl use autocmd to set equalprg
- 166. to reformat SQL , we have SQL::Beautify module
- 167. SQL::Beautify $ cat bin/sql-beautify.pl #!/usr/bin/env perl use warnings; use strict; use SQL::Beautify; local $/; my $sql = SQL::Beautify->new( query => <STDIN> , spaces => 4 , break => "n" ); print $sql->beautify; autocmd Filetype sql :set equalprg=sql-beautify.pl command! -range SQLF :'<,'>!/Users/c9s/bin/sql-beautify.pl
- 168. Javascript::Beautifier [localhost]$ cat bin/js_beautifier #!/usr/bin/env perl use JavaScript::Beautifier qw/js_beautify/; local $/; $js_source_code = <STDIN>; my $pretty_js = js_beautify( $js_source_code, { indent_size => 2, indent_character => ' ', } ); print $pretty_js; autocmd Filetype javascript :set equalprg=js-beautify.pl command! -range JSF :'<,'>!/Users/c9s/bin/js_beautify.pl
- 169. HTML Entities $ cat bin/html-entities.pl use HTML::Entities; for ( <STDIN> ) { print encode_entities( $_ ) . "n"; } command! -range Entities :'<,'>!/Users/c9s/bin/html-entities.pl " <a href="">YAPC ASIA</a> " <a href="">YAPC ASIA</a>
- 170. Morse Encoder use Convert::Morse qw(as_ascii as_morse is_morsable); print as_morse( $_ ) . “n” for ( <STDIN> ); command! -range Morse :'<,'>!/Users/c9s/bin/morse-encode.pl sub handler_start { my ( $kernel, $heap, $session ) = @_[ KERNEL, HEAP, SESSION ]; print "Session ", $session->ID, " has started.n"; $heap->{count} = 0; $kernel->yield('increment'); } ... ..- -... .... .- -. -.. .-.. . .-. ..--.- ... - .- .-. - { -- -.-- -.--. $-.- . .-. -. . .-.. --..-- $.... . .- .--. --..-- $... . ... ... .. --- -. -.--.- -...- .--.-. ..--.- [ -.- .--. .-. .. -. - .-..-. ... . ... ... .. --- -. .-..-. --..-- $... . ... ... .. --- -. -....- >.. -.. --..-- .-..-. .... .- . $.... . .- .--. -....- >{-.-. --- ..- -. - } -...- ----- -.-.- $-.- . .-. -. . .-.. -....- >-.-- .. . .-.. -.. -.--. .----. .. -. -.-. .-. . -- . -. - .----. -.--.- -.-.- }
- 171. source code traverse
- 172. Case: use Data::Dumper; Your::App->do_something(); we need to find Data/Dumper.pm in @INC then type something like $ vim /opt/local/..../site_perl/Data/Dumper.pm
- 173. fu! GetCursorModuleName() let cw = substitute( expand("<cWORD>") , '.{-}((w+)(::w+) *).*$' , '1' , '' ) return cw endfunction fu! TranslateModuleName(n) return substitute( a:n , '::' , '/' , 'g' ) . '.pm' endf fu! GetPerlLibPaths() let out = system('perl -e ''print join "n",@INC''') let paths = split( out , "n" ) return paths endf
- 174. fu! FindModuleFileInPaths() let paths = GetPerlLibPaths() let fname = TranslateModuleName( GetCursorModuleName() ) let methodname = GetMethodName() if TabGotoFile( 'lib/' . fname , methodname ) return endif for p in paths let fullpath = p . '/' . fname if TabGotoFile( fullpath , methodname ) break endif endfor endfunction nmap <leader>fm :call FindModuleFileInPaths()<CR> type “fm” rather than type $ perldoc -‐m Module::Name
- 175. Install CPAN Module from <cWORD> nmap <C-x><C-i> :call InstallCPANModule()<CR> function! InstallCPANModule() let l = getline('.') let cw = substitute( expand('<cWORD>') , ";$" , "" , "g" ) let cw = substitute( cw , "['"]" , "" , "g" ) echo "Installing CPAN Module: " . cw . "n" silent exec "!cpanp i " . cw . " >& /dev/null" echo "Donen" endfunction
- 176. Skeletons au bufnewfile *.pl 0r ~/.vim/skeleton/template.pl au bufnewfile *.pod 0r ~/.vim/skeleton/template.pod au bufnewfile *.pm 0r ~/.vim/skeleton/template.pm
- 177. more than one skeleton for perl code fu! ReadTemplate() let sname = input( "template type:" ) exec '0r ~/.vim/skeleton/perl/' . sname . '.pl' endf command! NewFromSkeleton :call ReadTemplate()
- 178. nm cr= ^f=cf; nm cl= ^f=c^
- 179. Pod Helper fu! PodHelperFunctionHeader() let subname = substitute( getline('.') , 'subs+(w+)s +.*$' , '1' , "" ) let lines = [ '=head2 ' . subname , '' , '' , '' , '=cut' , '', ] for text in lines :call append( line('.') - 1 , text ) endfor :call cursor( line('.') - len( lines ) + 2 , 1 ) endf nmap <leader>pf :call PodHelperFunctionHeader()<CR>
- 180. abbr _perlbin #!/usr/bin/env perl abbr _s $self
- 181. detect features if has('perl') endif if has(‘netbeans_intg’) endif
- 182. crossplatform settings if has('mac') elseif has(‘win32’) elseif has(‘unix’) endif
- 183. if you compiled vim with perl
- 184. function! WhitePearl() perl << EOF VIM::Msg("pearls are nice for necklaces"); VIM::Msg("rubys for rings"); VIM::Msg("pythons for bags"); VIM::Msg("tcls????"); EOF endfunction
- 185. :perl $a=1 :perldo $_ = reverse($_);1 :perl VIM::Msg("hello") :perl $line = $curbuf->Get(42)
- 186. :perl VIM::Msg("Text") # displays a message :perl VIM::Msg("Error", "ErrorMsg") # displays an error message :perl VIM::Msg("remark", "Comment") # displays a highlighted message :perl VIM::SetOption("ai") # sets a vim option :perl $nbuf = VIM::Buffers() # returns the number of buffers :perl @buflist = VIM::Buffers() # returns array of all buffers :perl $mybuf = (VIM::Buffers('qq.c'))[0] # returns buffer object for 'q :perl @winlist = VIM::Windows() # returns array of all windows :perl $nwin = VIM::Windows() # returns the number of windows :perl ($success, $v) = VIM::Eval('&path') # $v: option 'path', $success :perl ($success, $v) = VIM::Eval('&xyz') # $v: '' and $success: 0 :perl $v = VIM::Eval('expand("<cfile>")') # expands <cfile> :perl $curwin->SetHeight(10) # sets the window height :perl @pos = $curwin->Cursor() # returns (row, col) array :perl @pos = (10, 10) :perl $curwin->Cursor(@pos) # sets cursor to @pos :perl $curwin->Cursor(10,10) # sets cursor to row 10 col 10
- 187. 11. Plugins
- 188. perlprove.vim parse test output to quickfix window ':make *t', or ':make t'
- 189. SnipMate
- 190. snippet cla class .. initialize .. end class ${1:`substitute(Filename(), '^.', 'u&', '')`} def initialize(${2:args}) ${3} end end code snippet
- 191. DBExt.vim Database extension support Oracle, Sybase, MSSQL , MySQL, DBI etc..
- 192. xml.vim xml related
- 193. FuzzyFinder.vim Fuzzy/Partial pattern explorer
- 194. The_NERD_TREE.vim Directory Tree Explorer
- 195. The NERD Commenter Comment Helper
- 196. taglist.vim ctags macro , function , variable
- 197. autocomplpop.vim
- 199. bufexplorer.vim Buffer Explorer
- 200. git-vim
- 204. The old way to install vim scripts
- 209. Download
- 210. Read Install details
- 211. Read Install details Awful!
- 212. Awful!
- 214. Vimana Vim script Manager
- 215. • Vimball • Archive File ( zip , rar ) • .vim extension file
- 216. • Cache::File • App::CLI • Archive::Any • ...etc
- 217. it’s on CPAN $ cpan Vimana
- 218. $ vimana search xml
- 219. $ vimana search xml rrd.vim - Edit RRD data with Vim. qt.vim - tiny tool for the uic used in Qt from Trolltech syntax-for-xul - Highlighting for XML User interface Language. maven2.vim - Compiler plugin for maven2 .... skip
- 220. $ vimana info xml.vim
- 221. $ vimana install xml.vim
- 222. $ vimana install xml.vim $ vimana install rails.vim $ vimana install the-nerd-tree.vim $ vimana install taglist.vim $ vimana install snipmate $ vimana install fuzzyfinder.vim etc ... ALL Works
- 223. Future Plan •upgrade • remove • config • support makefile
- 225. Thank You