首先需要再编译vim的时候enable perl；
Perl接口的使用 *perl-using* *:perl* *:pe* :pe[rl] 执行Perl命令。当前包是“main”。 :pe[rl] << 执行Perl脚本。 不能有任何前导空格。如果忽略了， 就会像|:append|和|:insert|命令那样默认到达一个点'.'。 |:perl|命令的这种形式主要是用来在vim脚本里面包含perl代 码。 备注:当Perl没有被编译进vim时这条命令不能工作。为了避 免出错请参考|script-here|。 vim脚本示例: *:perldo* *:perld* :perld[o] 对中的每行执行Perl命令,同时$_依次被赋值 为每行的文本，但不包括行尾的。改变$_会改变每行 的内容，但是用这个命令不能添加或者删除行。的 缺省值是整个文件:"1，$"。 可以试一下下面的代码: *E299* 在|sandbox|执行Perl命令是受限制的。":perldo"根本就不能执行。如果可能，":perl" 会在安全环境下被执行。 *perl-overview* 下面是在Perl下可用的函数概要: *perl-Msg* VIM::Msg(,?) 显示消息。可选参数指定用来显示这个消息的 突出方式。 *@L_502_13@* VIM::SetOption() 设置一个vim选项。可以是任何":set"命令能接受的参数。 这就意味着参数里面不允许有空格！见|:set|。 *perl-Buffers* VIM::Buffers([...]) 没有参数的时候，在列表上下文里面返回所有缓冲区的列表 或者在标量上下文时返回缓冲区的个数。对于一个缓冲区名字 列表或者数量,返回匹配的缓冲区列表，与Vim内部函 数|bufname()|使用同样的规则。 *perl-Windows* VIM::Windows([...]) 没有参数的时候，在列表上下文里面返回所有窗口的列表或者在 标量上下文时返回窗口的个数。对于一个窗口名字数量列表,返回匹配的窗口列表。 *perl-DoCommand* VIM::DoCommand() 执行 Ex 命令 . *perl-Eval* VIM::Eval() 对求值并返回(success,val)。success=1表示val包含 的值。success=0表示表达式求值失败。‘@x’返回寄存器x的内容， '&x'返回选项x的值，'x'返回内部变量x的值,'$x'等价鱼perl中的 $ENV。所有再命令行可以访问的函数都对有效。 *perl-SetHeight* Window->SetHeight() 在屏幕允许的前提下把窗口的高度设定为。 *perl-GetCursor* Window->Cursor(?,?) 在没有参数的情况下，返回窗口光标所处位置的坐标(row,col)。 当有参数和的情况下，把窗口光标的位置设为 和。注意是Perl风格的，从0数起的，比Vim的尺度 小1。 Window->Buffer() *perl-Buffer* 返回给定窗口的缓冲区对象。 *perl-Name* Buffer->Name() 返回缓冲区的文件名。 *perl-Number* Buffer->Number() 返回缓冲区的数量。 *perl-Count* Buffer->Count() 返回缓冲区中的行数。 *perl-Get* Buffer->Get(,?,...) 对每个指定的,返回缓冲区中第行的文本字符 串。通过指定一个列表可以传递一个数组。 *perl-Delete* Buffer->Delete(,?) 删除缓冲区的第行。当有第二个参数时，删除 由第一个到第二个指定的范围。 *perl-Append* Buffer->Append(,...) 把每个字符串添加到缓冲区的第行后面。 列表可以是一个数组。 *perl-Set* Buffer->Set(,...) 替代缓冲区从第行开始，由指定的一行或者多行。 列表可以是一个数组。如果参数无效，就不作替代。 $main::curwin 当前窗口对象。 $main::curbuf 当前缓冲区对象。 *script-here* 当使用嵌入式脚本语言是，你可能想在语言不支持时跳过这些。但是这个机制不能工作: 取而代之，把Perl/Python/Ruby/等的命令放在一个函数里面并调用他: 备注: "EOF"必须在行首(前面不能有前导空格)。{cmd}{cmd}{endpattern}{script}{endpattern}{script}{endpattern}{endpattern}function! WhitePearl()perl << EOFVIM::Msg("pearls are nice for necklaces");VIM::Msg("rubys for rings");VIM::Msg("pythons for bags");VIM::Msg("tcls????");EOFendfunction[range]{cmd}[range]{cmd}<EOL>[range]:perl $a=1:perldo $_ = reverse($_);1:perl VIM::Msg("hello"):perl $line = $curbuf->Get(42):perl VIM::Msg("Text") # 显示信息:perl VIM::Msg("Error","ErrorMsg") # 显示错误信息:perl VIM::Msg("remark","Comment") # 显示突出的信息:perl VIM::SetOption("ai") # 设定一个vim选项:perl $nbuf = VIM::Buffers() # 返回缓冲区的个数:perl @buflist = VIM::Buffers() # 返回所有缓冲区的数组:perl $mybuf = (VIM::Buffers('qq.c'))[0] # 返回一个'qq.c'的缓冲区对象:perl @winlist = VIM::Windows() # 返回所有窗口的数组:perl $nwin = VIM::Windows() # 返回窗口的个数:perl ($success,$v) = VIM::Eval('&path') # $v: option 'path',$success: 1:perl ($success,$v) = VIM::Eval('&xyz') # $v: '' and $success: 0:perl $v = VIM::Eval('expand("<cfile>")') # 展开文件<cfile><cfile><cfile>:perl $curwin->SetHeight(10) # 设定窗口高度:perl @pos = $curwin->Cursor() # 返回坐标(row,col):perl @pos = (10,10):perl $curwin->Cursor(@pos) # 把光标位置设为@pos:perl $curwin->Cursor(10,10) # 把光标位置设为第10行第10列:perl $mybuf = $curwin->Buffer() # 返回窗口的缓冲区对象:perl $curbuf->Name() # 返回缓冲区名字:perl $curbuf->Number() # 返回缓冲区号码:perl $curbuf->Count() # 返回行数:perl $l = $curbuf->Get(10) # 返回第10行:perl @l = $curbuf->Get(1 .. 5) # 返回第1到第5行:perl $curbuf->Delete(10) # 删除第10行:perl $curbuf->Delete(10,20) # 删除第10－20行:perl $curbuf->Append(10,"Line") # 在第10行后面添加一行:perl $curbuf->Append(10,"Line1","Line2","Line3") # 在第10行后面添加三行:perl @l = ("L1","L2","L3"):perl $curbuf->Append(10,@l) # 添加 L1,L2 和 L3:perl $curbuf->Set(10,"Line") # 替换第10行:perl $curbuf->Set(10,"Line2") # 替换第10行和第11行:perl $curbuf->Set(10,@l) # 分别用L1，L2和L3替换10－12行{msg}{group}{msg}{group}{arg}{arg}{bn}{bn}{bn}{wn}{wn}{wn}{cmd}{cmd}{expr}{expr}{expr}{x}{expr}{height}{height}{row}{col}{row}{col}{row}{col}{col}{lnum}{lnum}{lnum}{lnum}{lnum}{lnum}{lnum}{lnum}{lnum}{lnum}{lnum}{lnum}{line}{line}{line}{lnum}{line}{lnum}{line}{line}{lnum}{lines}{line}if has('perl')perl << EOFthis will NOT work!EOFendifif has('perl')function DefPerl()perl << EOFthis workSEOFendfunctioncall DefPerl()endif
以上摘自http://man.chinaunix.net/newsoft/vi/doc/if_perl.html
有空想想如何使用干这些api写一个自己vim插件