新人求助

zhuifeng_wsd

有资料如下：

- ....
....
.....
....
;

-....
...
..
...
...
;

-..
..
;

想要的结果是：
-........................................;
-..................................;
-.................................;

求指点

kernel69

1. perl -pe '/^;/ or s/\n//'

复制代码

回复 1# zhuifeng_wsd


   

zhuifeng_wsd

回复 11# mcshell


    看不懂{:2_169:}

zhuifeng_wsd

回复 12# rubyish


    简洁

rubyish

1. #!/usr/bin/perl
   
2. 
   
3. $/ = "\n\n";
   
4. while (<DATA>) {
   
5.     s /\n//g;
   
6.     print "$_\n";
   
7. }
   
8. __DATA__
   
9. -123
   
10. 45
    
11. 678
    
12. ;
    
13. 
    
14. -abc
    
15. de
    
16. fg
    
17. ;
    
18. 
    
19. -AB
    
20. CD
    
21. ;
    

复制代码

mcshell

1. perl -ne  'chomp;!/;/?print :print "$_\n"' file

复制代码

zhuifeng_wsd

回复 8# yestreenstars


    膜拜大神，看不懂{:2_174:}

zhuifeng_wsd

回复 7# TrishaTie


    多谢解答，谢谢

yestreenstars

1. perl -lne 'BEGIN{$/=undef};s/\n//g;s/;/;\n/g;s/\n$//;print'

复制代码

TrishaTie

回复 6# zhuifeng_wsd
06.$_.="\n";
意思跟 $sum+=1 一样 $_=$_."\n";