格式化代码的脚本！！！！求指正！

ghoull

  最近写了个 格式化代码的脚本
  但无法回避代码中 正则中的｛｝ 符号求大神修改！

1. #!/usr/bin/perl -w
   
2. 
   
3. use 5.010;
   
4. use strict;
   
5. 
   
6. my $flag=0;
   
7. $_=do{local $/;<DATA>};
   
8. 
   
9. s/(?<=[{}])|(?=[{}])/\n/g;    #在{}前后加上换行
   
10. s/^\s+//mg;      #删除行首空格或空白行
    
11. s/\{[\r\n]\K(?{$flag++})|[\r\n](?=\})\K(?{$flag--})|[\r\n]\K/'   'x$flag/eg;
    
12. #添加缩进空格！
    
13. 
    
14. print $_;
    
15. __DATA__
    
16.      #!/usr/bin/perl
    
17. 
    
18. 
    
19. use 5.010;
    
20. use strict;
    
21.     use warnings;
    
22. 
    
23. my @lines = 1..100;
    
24. print &above_average(&average(@lines),@lines);
    
25. 
    
26. sub average{my $result = 0;
    
27. foreach (@_){$result += $_;
    
28. $result += $_;
    
29. $result += $_;
    
30. }$result / ($#_+1) ;  
    
31. }sub above_average{my $aver=shift;
    
32. my @result=();
    
33. foreach(@_){if($_ > $aver){push @result,$_;}
    
34. }@result;}

复制代码

pitonas

#在{}前后加上换行
{:2_172:} 小伙伴们, 很多奇怪的换行

• my $s =do{ local $/; <DATA> };
• my $hash = { a => 1, b => 2 };
• Hash{$a}{$b} = 6;
• my @a = grep { $_ > 3 } 1 .. 6;
• my @a = sort { $a <=> $b } @c;
• my @a = sort { $c{a} <=> $c{$b} } keys %c;
• ...
  

回复 1# ghoull


   

ghoull

回复 2# pitonas
是的 就是不能识别这样的类型的{} 语句中间的{}

   

ttcn_cu

perltidy....

zhlong8

在vim里把当前窗口的代码用 perltidy 格式化的命令是怎么写的？vim 自己的略呆

ttcn_cu

stack overflow 有人给过不错的solution Google下

ghoull

看来我这个只能适用格式化C语言了啊！！！！！！！！！！

fender0107401

回复 5# zhlong8

1. map <f9> <esc>:wall<cr><esc>:cs reset<cr><esc>1G=G<cr><esc>:%s/\s*$//<cr><esc>:noh<cr><esc>2<C-o><cr>
   
2. 
   
3. autocmd BufRead,BufNewFile *.pl set filetype=perl
   
4. autocmd BufRead,BufNewFile *.pm set filetype=perl
   
5. 
   
6. autocmd BufRead,BufNewFile *.pl set syntax=perl
   
7. autocmd BufRead,BufNewFile *.pm set syntax=perl
   
8. 
   
9. autocmd BufRead,BufNewFile *.pl set equalprg=perltidy
   
10. autocmd BufRead,BufNewFile *.pm set equalprg=perltidy

复制代码

Just hit the F9.




   

zhlong8

回复 8# fender0107401


    谢谢我只需要最后两行，gg=G 这个还是很顺手的

fender0107401

回复 9# zhlong8

我习惯猛击F9。