如何提取匹配的行， 及匹配行下面连续几行的内容

kggg

如下文件示例， 行首都有一个空格， 第一列是主题， 后面跟的是内容， 如果下一行第一，二列是空的，就是属于上一主题的内容。
如何提取出这些主题及对应的内容呢。


原文件的一部份：

1. aklsdjk     hh       this is ok   2039023
   
2.                           kkk hhh kldkkd  kkkk
   
3.                           uuuu  kdk kkk  kkkkkk lll
   
4.                           99999 778 888 8887 777
   
5. kllllll        dddd    uu  uuuuuuu uuuuuuuuu u
   
6. yyyy        uuuu    kkkkkkkkl llll llllllllllllllllllllllll
   
7. rrrrr         kkku    kdljsdl klsjdfldk lkkkk kkkkkkk
   
8.                            kdslfjlsd kljlkjl kljljl kljlkl ljl
   
9.                            klsjfdlsf lkjslf 999999999999
   
10. kkkk         kkkkkk  kkkkkkkkkkkkkkkk 888 ll888 88

复制代码

如第二列包含hh, uuuu, kkku的提取出来 ， 如下显示的结果 ：

1. aklsdjk     hh       this is ok   2039023
   
2.                           kkk hhh kldkkd  kkkk
   
3.                           uuuu  kdk kkk  kkkkkk lll
   
4.                           99999 778 888 8887 777
   
5. yyyy        uuuu    kkkkkkkkl llll llllllllllllllllllllllll
   
6. rrrrr         kkku    kdljsdl klsjdfldk lkkkk kkkkkkk
   
7.                            kdslfjlsd kljlkjl kljljl kljlkl ljl
   
8.                            klsjfdlsf lkjslf 999999999999

复制代码

b114213903

想得到什么样的结果？

kggg

回复 2# b114213903

1. aklsdjk     hh       this is ok   2039023
   
2.                           kkk hhh kldkkd  kkkk
   
3.                           uuuu  kdk kkk  kkkkkk lll
   
4.                           99999 778 888 8887 777
   
5. yyyy        uuuu    kkkkkkkkl llll llllllllllllllllllllllll
   
6. rrrrr         kkku    kdljsdl klsjdfldk lkkkk kkkkkkk
   
7.                            kdslfjlsd kljlkjl kljljl kljlkl ljl
   
8.                            klsjfdlsf lkjslf 999999999999

复制代码

如果包含hh, uuuu, kkku的显示出来 ， 如上所示。

   

b114213903

回复 3# kggg

1. #/usr/bin/perl
   
2. use strict;
   
3. 
   
4. my $flag=0;
   
5. while(my $line=<DATA>){
   
6.         if($line=~/^\s\S/){
   
7.                 my $seconde=(split /\s+/,$line)[2];
   
8.                 if($seconde=~/^(hh)$|^(uuuu)$|^(kkku)$/){
   
9.                         $flag=1;
   
10.                         print "$line";
    
11.                 }else{
    
12.                         $flag=0;
    
13.                 }
    
14.         }elsif($flag){
    
15.                 print "$line";
    
16.         }
    
17. }
    
18. <>
    
19. __DATA__
    
20. aklsdjk     hh       this is ok   2039023
    
21.                           kkk hhh kldkkd  kkkk
    
22.                           uuuu  kdk kkk  kkkkkk lll
    
23.                           99999 778 888 8887 777
    
24. kllllll        dddd    uu  uuuuuuu uuuuuuuuu u
    
25. yyyy        uuuu    kkkkkkkkl llll llllllllllllllllllllllll
    
26. rrrrr         kkku    kdljsdl klsjdfldk lkkkk kkkkkkk
    
27.                            kdslfjlsd kljlkjl kljljl kljlkl ljl
    
28.                            klsjfdlsf lkjslf 999999999999
    
29. kkkk         kkkkkk  kkkkkkkkkkkkkkkk 888 ll888 88

复制代码

jason680

回复 3# kggg


$ cat get_huk.pl
use strict;
use warnings;

my $sMatch = 0;
while(<DATA>){
  $sMatch = 0 if(m/^\s\S+/);
  $sMatch = 1 if(m/^\s\S+\s+(hh|uuuu|kkku)\s/);
  print if $sMatch;
}
__DATA__
aklsdjk     hh       this is ok   2039023

                          kkk hhh kldkkd  kkkk
                          uuuu  kdk kkk  kkkkkk lll
                          99999 778 888 8887 777
kllllll        dddd    uu  uuuuuuu uuuuuuuuu u
yyyy        uuuu    kkkkkkkkl llll llllllllllllllllllllllll
rrrrr         kkku    kdljsdl klsjdfldk lkkkk kkkkkkk
                           kdslfjlsd kljlkjl kljljl kljlkl ljl
                           klsjfdlsf lkjslf 999999999999
kkkk         kkkkkk  kkkkkkkkkkkkkkkk 888 ll888 88

$ perl get_huk.pl
aklsdjk     hh       this is ok   2039023

                          kkk hhh kldkkd  kkkk
                          uuuu  kdk kkk  kkkkkk lll
                          99999 778 888 8887 777
yyyy        uuuu    kkkkkkkkl llll llllllllllllllllllllllll
rrrrr         kkku    kdljsdl klsjdfldk lkkkk kkkkkkk
                           kdslfjlsd kljlkjl kljljl kljlkl ljl
                           klsjfdlsf lkjslf 999999999999

   

kggg

谢谢两位。