在vim下写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以后,会要扫描一段时间。这个问题还没有解决。