/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