如何多次匹配两个匹配行之间的内容？

fjndhjf

有下面的文件:
__DATA__

ABCDEF
12333
3ERR
FGGG
BBBBBB
VBGGHH
ABCDEF
MMDK
FGGG
DGFGG
BBBBBB
TRGGY
ABCDEF
12ER
3E32
FGCWWG
BBBBBB
把所有红色标记的ABCDEF和BBBBBB之间的
内容截取出来分别赋值给数组。最后需要的结果为：
@a1=12333
         3ERR
         FGGG

@a2=MMDK
        FGGG
       DGFGG

@a3=12ER
        3E32
        FGCWWG
具体怎么操作？谢谢各位大侠！

fjndhjf

回复 1# fjndhjf

各位大侠帮忙下，多谢！
   

kk861123

回复 1# fjndhjf

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. while (<DATA>) {
   
5.     if (/ABCDEF/../BBBBBB/) {
   
6.         print;
   
7.     }
   
8. }

复制代码

fjndhjf

回复 3# kk861123

这样只能打印出匹配行之间内容，我需要在这基础上，
把两个匹配行之间的部份在分别赋值给每个数组。这样我后面
单独对每个数组在进行操作就方便。
怎么实现呢？最后需要的结果为：
@a1=12333
         3ERR
         FGGG

@a2=MMDK
        FGGG
       DGFGG

@a3=12ER
        3E32
        FGCWWG

   

jason680

回复 4# fjndhjf

How about this one ...

#!/usr/bin/perl
use strict;
use warnings;

my @aData;
my $sOutput = "";
while(<DATA>){
  if(m/^ABCDEF\s*$/){
    $sOutput = "";
    next;
  }
  if(m/^BBBBBB\s*$/){
    push @aData, $sOutput;
    next;
  }
  $sOutput .= $_;
  
}
my $sCnt = 0;
foreach(@aData){
  print "\$aData[$sCnt]=\n";
  print "$_\n";
  $sCnt++;
}
__DATA__
...   

cinanine

1. #!/usr/bin/perl
   
2. # use 5.010;
   
3. my ( @a, $push );
   
4. while (<DATA>) {
   
5.     if (/^ABCDEF/) { $push++; push @a, [] }
   
6.     elsif (/^BBBBBB/) { $push-- }
   
7.     elsif ($push) { chomp; push @{ $a[-1] }, $_ }
   
8. }
   
9. 
   
10. print "@$_\n" for @a;
    
11. __DATA__
    
12. ABCDEF
    
13. 12333
    
14. 3ERR
    
15. FGGG
    
16. BBBBBB
    
17. VBGGHH
    
18. ABCDEF
    
19. MMDK
    
20. FGGG
    
21. DGFGG
    
22. BBBBBB
    
23. TRGGY
    
24. ABCDEF
    
25. 12ER
    
26. 3E32
    
27. FGCWWG
    
28. BBBBBB

复制代码

kk861123

回复 4# fjndhjf

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Data::Dumper;
   
4. 
   
5. my $file  = do { local $/; <DATA>};
   
6. my @array = map { [ split ] } ( $file =~ /ABCDEF(.*?)BBBBBB/mgs );
   
7. print Dumper \@array;

复制代码

yakczh_cu

ABCDEF与BBBBB是成对出现的?

fjndhjf

回复 8# yakczh_cu

是的哦，多谢各位大侠了，小弟膜拜啊，太厉害了你们！