求助！！！~~~~

albertkingking

现有文件格式如下：
================
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

格式是这样的 想要的结果是 把每个NAME下有名字的结果全输出  滤掉NAME下没有结果的
预期结果如下：
================
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


求高手指点 ！！！小弟跪谢~~~~

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
首先 万分感谢
其次 尝试了下 貌似不对啊 结果出来还是全部都打印了
再次 还在努力看懂中
{: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


    谢谢啦  问题已经解决啦 ~~~~