如何提取匹配的行， 及匹配行下面連續(xù)幾行的內(nèi)容

kggg

如下文件示例， 行首都有一個空格， 第一列是主題， 后面跟的是內(nèi)容， 如果下一行第一，二列是空的，就是屬于上一主題的內(nèi)容。
如何提取出這些主題及對應(yīng)的內(nèi)容呢。


原文件的一部份：

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的提取出來 ， 如下顯示的結(jié)果 ：

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

想得到什么樣的結(jié)果？

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

謝謝兩位。