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

root

　　在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;
　　这是.vimrc中已经增加了tags的路径

　　下面是补全的结果

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