我在Perl中有一个子程序,应该像这样缩进:
sub GetFiles { my $pwd = shift; my @input = @_; my @returned; my @DirectoryContent = &GetContentinformation(@input); foreach (@DirectoryContent) { my %current = %{$_}; if ($current{'info'} =~ /<DIR>/) { my $RecurseDir = &GetRecurseDir($pwd,\%current); push(@returned,&GetFiles($RecurseDir,&GetDirectoryContents($RecurseDir))); } else { # clean up the data my $size = $current{'info'}; # filesize will be in number of bytes # remove file separators #$size =~ s/,//g; my $extension = &GetFileExtension($current{'name'}); delete($current{'info'}); $current{'size'} = $size; $current{'extension'} = $extension; # push(@returned,\%current); } } @returned; }
但是当我按下子程序块的起始括号上的=%(是的,cindent打开)时,它会像下面那样缩进:
sub GetFiles { my $pwd = shift; my @input = @_; my @returned; my @DirectoryContent = &GetContentinformation(@input); foreach (@DirectoryContent) { my %current = %{$_}; if ($current{'info'} =~ /<DIR>/) { my $RecurseDir = &GetRecurseDir($pwd,\%current); push(@returned,&GetDirectoryContents($RecurseDir))); } else { # clean up the data my $size = $current{'info'}; # filesize will be in number of bytes # remove file separators #$size =~ s/,//g; my $extension = &GetFileExtension($current{'name'}); delete($current{'info'}); $current{'size'} = $size; $current{'extension'} = $extension; # push(@returned,\%current); } } @returned; }
为什么这样做?我该如何解决?
编辑:应该注意我在Windows上使用gvim 7.3.
也许这是神奇的想法,但是…我曾经有过:
filetype plugin on filetype indent on
在我的_vimrc中(在Windows XP上,自编译的gvim,各种版本),我会在Perl,LaTeX和HTML文件中得到各种有趣的缩进问题.
我现在有
filetype indent on filetype plugin on
而且一切似乎都是笨拙的.因人而异.
另外,我强烈推荐Andy Lester’s vim-perl.
原文地址:https://www.jb51.cc/vim/384188.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。