如何开发vim的小脚本

[totopper]

需求：
1，当用gvim打开一个后缀名为.log的文件时，先对文件进行一些处理，比如删除一些字符，然后再显示在gvim里面
这种功能大概怎么个思路，然后已经写好对应的处理脚本，但是用perl写的，想问gvim做类似的功能有什么文档可以参考一下，谢谢哈

[acer4740]

代码： 全选

augr ui
au!
au bufreadpost,filereadpost *.ui exe "%!python ".expand("<sfile>:p:h:gs?\\?/?")."/pyuic.py %" 
au bufreadpost,filereadpost *.ui set ft=python
augr END

自动命令，然后用外部命令过滤

这是我用python写的一个，perl的自己改一改吧

[acer4740]

代码： 全选

augr ui
au!
au bufreadpost,filereadpost *.log exe "%!perl ".expand("<sfile>:p:h:gs?\\?/?")."/script.pl %"
au bufreadpost,filereadpost *.log set ft=log
augr END

把上面的脚本.vim和script.pl放在一起，就行了

[acer4740]

这样以后用vim打开log文件，里面的内容是script.pl的输出

[Fermat618]

这标题起得真不对内容，搞得我又重新把这帖子看了一遍。

[totopper]

这标题起得真不对内容，搞得我又重新把这帖子看了一遍。

哈哈，不好意思哈

[niejieqiang]

你学perl当然是看:h if_perl

我也懒得学vim脚本，这是我写的两个小功能：
注释用：

代码： 全选

"<==================================================
" comment region
"<==================================================
if has("perl")
function! Commenter()
	perl comment_region(); 
endfunction
silent vmap <c-j> <esc>:call Commenter()<cr>
perl << EOF
sub comment_region{
	my $curbuf = $main::curbuf;
	my $file_extension = (split/\.|_/,$curbuf->Name())[-1];
	my %comment=(
		"pl"=>"\#",
		"pm"=>"\#",
		"vimrc"=>"\"",
		"vim"=>"\"",
	);
	my ($success, $startline) = VIM::Eval('getpos("\'<")[1]');
	my ($success, $endline) = VIM::Eval('getpos("\'>")[1]');

	my @text= $curbuf->Get($startline..$endline);
	for my $item(@text){
		if (exists $comment{$file_extension}){
			if($item=~/^((?:(?:\s+))?$comment{$file_extension}+)+/){
				$item=~s/$1//;
			}
			else{
				$item=~s/^/$comment{$file_extension}/g ;
			}	
		}
		else{
			VIM::Msg("该类型文件的注释符号未定义","ErrorMsg");
			last;
		}
	}
	$curbuf->Set($startline, @text);
}
EOF
endif

打开XP的资源管理器并切换到当前buffer所在位置，也可以打开getcwd()后的那个目录或者指定的目录也行

代码： 全选

"<==================================================
"open in file explorer when in xp
"<==================================================
if has("perl")
function! OpenFileExplorer(...)
	perl open_explorer();
endfunction
command -bar -nargs=* -complete=file OpenFileExplorer call OpenFileExplorer(<q-args>)
perl <<EOF
sub open_explorer{
	my $curbuf = $main::curbuf;
	my $args = VIM::Eval('a:1');
	if($args eq ""){
		my $dir = VIM::Eval('expand("%:p:h")');
		\&check_sys(\$dir);
	}
	elsif($args eq "pwd"){
		my $dir = VIM::Eval('getcwd()');
		\&check_sys(\$dir);
	}
	else{
		if (-e $args){
			\&check_sys(\$args);
		}
		else{
			VIM::Msg("目录不存在!请检查输入是否有误。","ErrorMsg");
		}
	}
}

sub check_sys{
	my $want_dir = shift ;
	if($^O=~/win32/i){
		system("start explorer $$want_dir");
	}
}
EOF
endif