/usr/local/share/vim/vim60/syntax/perl.vim #### let b:current_syntax = "perl" #### syn include @Sql :p:h/sql.vim syn region perlSQL start="qq{" end="}" contains=@Sql keepend syn region perlSQL start="qq\[" end="\]" contains=@Sql keepend syn region perlSQL start="<## my $sql1 = qq{ SELECT fieldname FROM $tab_array[0] WHERE otherfield = ( ? ) }; my $sql2 = qq[ SELECT fieldname FROM $tab_hash{$current} WHERE otherfield = ( ? ) ]; #### my $sign = qq {DO NOT SELECT FROM MY TABLE !} #### :runtime! syntax/2html.vim #### # ./configure --enable-perlinterp # make # make install #### :perl $count = 0 :perldo $count += split /[;_<> ]/, $_ :perl VIM::Msg($count) #### :perl @lines = sort {$a <=> $b} $curbuf->Get(1 .. 15) :perl $curbuf->Set(1, @lines) #### :perl $curbuf->Set(1, sort {$a <=> $b} $curbuf->Get(1 .. 15)) #### :10,30perldo s/\b(:?Monks|advocates)\b/PerlMonks/ :40,45perldo tr/A-F0-9//cd