vim支持perl安装模块的自动补全

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

在viｍ下写perl程序时，写Perl模块时不会高亮显示，平时很容易出错，于是就想能够使vim支持perl模块的自动补全

1 支持Perl模块的自动补全

例如，我们想使Web::Scraper,则在我们输入Web然后按CTRL+N以后，就可以自动补。

用一个perl脚本实现可以补全系统安装的所有模块

#! /usr/bin/perl
use strict;
use warnings;
use File::Find 'find';

#补全模块所在文件
my $LIST_DIR = "$ENV{HOME}/.vim_extras/";
my $LIST_FILE = "file_perl_module";

unless(-e $LIST_DIR){
    mkdir $LIST_DIR or die "Couldn't create directory $LIST_DIR($!)\n";
}
open my $fh,">","$LIST_DIR$LIST_FILE" or die "Couldn't create file '$LIST_FILE'($!)\n";

my %already_seen;
for my $incl_dir (@INC){
    find{
        wanted => sub{
            my $file = $_;
            return unless $file =~ /\.pm\z/;
            $file =~ s#^\Q$incl_dir/\E##;
            $file =~ s{/}{::}g;
            $file =~ s#\.pm\z##;
            print {$fh} $file,"\n" unless $already_seen{$file}++;
        },
        no_chdir => 1,
    },$incl_dir;
}

再编辑.vimrc文件进行设置

现在我们就可以对所有已安装模块的自动补全了

2 和ctags结合

用ctags在所在perl模块安装所在目录中生成tags文件，然后再添加到.vimrc文件中

 1 #! /usr/bin/perl
 2 use strict;
 3 use warnings;
 4 
 5 my $tags;
 6 foreach my $dir (@INC){
 7     if(!($dir =~ m/site_perl|\.$/)){
 8         chdir $dir or die "cannot chdir $dir$!\n";
 9         system 'sudo ctags -R --languages=perl --langmap=perl:+.pl';
10         $tags  = $tags . "\nset tags+=$dir/tags";}
11 }
12 open (my $vimrc,'>>',"$ENV{HOME}/.vimrc");
13 print {$vimrc} $tags;