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

在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文件中

#! /usr/bin/perl
use strict;
use warnings;

my $tags;
foreach my $dir (@INC){
    if(!($dir =~ m/site_perl|\.$/)){
        chdir $dir or die "cannot chdir $dir$!\n";
        system 'sudo ctags -R --languages=perl --langmap=perl:+.pl';
        $tags  = $tags . "\nset tags+=$dir/tags";}
}
open (my $vimrc,'>>',"$ENV{HOME}/.vimrc");
print {$vimrc} $tags;

这是.vimrc中已经增加了tags的路径

下面是补全的结果

但是，很不爽的是它这个因为tags和模块过多，所以载入的在我按下CTRL+X CTRL+I以后，会要扫描一段时间。这个问题还没有解决。