求助�。�！~~~~

albertkingking

現(xiàn)有文件格式如下：
================
NAME1


zhangsan     56     72       33   GREAD ONE
wangmazi     33    34        77   GREAD TWO
================
NAME2

================
NAME3

liuliu     56     22        45   GREAD THREE
wangmazi  33    27     33   GREAD FOUR

格式是這樣的 想要的結(jié)果是 把每個NAME下有名字的結(jié)果全輸出  濾掉NAME下沒有結(jié)果的
預期結(jié)果如下：
================
NAME1


zhangsan     56     72       33   GREAD ONE
wangmazi     33    34        77   GREAD TWO
================
NAME3

liuliu     56     22        45   GREAD THREE
wangmazi  33    27     33   GREAD FOUR


求高手指點 �。。⌒〉芄蛑x~~~~

albertkingking

小弟在線等啊  求大神指點啊~~~

yizhengming

1. #! /usr/bin/perl -w
   
2. use strict;
   
3. open FD, "DATA";
   
4. my $line = do {local $/, <FD>};
   
5. $line =~ s/^=+\s*NAME\d*\s*(?=^=+|\Z)//mgs;
   
6. print "$line";
   
7. ___DATA___
   
8. .............
   

復制代碼

albertkingking

回復 3# yizhengming
首先 萬分感謝
其次 嘗試了下 貌似不對啊 結(jié)果出來還是全部都打印了
再次 還在努力看懂中
{:2_168:}

   

yizhengming

回復 4# albertkingking

================
NAME*

前面是否有空白？

albertkingking

回復 5# yizhengming


    木有空白啊 ~~

albertkingking

回復 5# yizhengming


    每行頂頭都沒有空白 就是行與行之間是有空白的

yizhengming

1. #! /usr/bin/perl -w
   
2. use strict;
   
3. open FD, "DATA";
   
4. my $line = do {local $/, <FD>};
   
5. my @arr = grep { s/^/"="x16/e }
   
6. grep { not /^\s*(NAME\d+)?\s*$/ } split /=+/, $line;
   
7. print @arr;
   

復制代碼

kk861123

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $str = do{ local $/; <DATA> };
   
6. my $SEP = '=' x 16 . "\n";
   
7. 
   
8. my @chunk = grep { not /^NAME\d+\s*$/s }
   
9.             split $SEP,$str;
   
10. 
    
11. print join $SEP,@chunk;
    
12. 
    
13. __DATA__
    
14. ================
    
15. NAME1
    
16. 
    
17. 
    
18. zhangsan     56     72       33   GREAD ONE
    
19. wangmazi     33    34        77   GREAD TWO
    
20. ================
    
21. NAME2
    
22. 
    
23. ================
    
24. NAME3
    
25. 
    
26. liuliu     56     22        45   GREAD THREE
    
27. wangmazi  33    27     33   GREAD FOUR
    
28. 
    

復制代碼

albertkingking

回復 8# yizhengming


    謝謝啦  問題已經(jīng)解決啦 ~~~~