免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 4882 | 回复: 8

如何多次匹配两个匹配行之间的内容? [复制链接]

论坛徽章:
0
发表于 2013-09-23 21:22 |显示全部楼层
本帖最后由 fjndhjf 于 2013-09-24 11:41 编辑

有下面的文件:
__DATA__

ABCDEF
12333
3ERR
FGGG

BBBBBB
VBGGHH
ABCDEF
MMDK
FGGG
DGFGG

BBBBBB
TRGGY
ABCDEF
12ER
3E32
FGCWWG

BBBBBB
把所有红色标记的ABCDEFBBBBBB之间的
内容截取出来分别赋值给数组。最后需要的结果为:
@a1=12333
         3ERR
         FGGG


@a2=MMDK
        FGGG
       DGFGG


@a3=12ER
        3E32
        FGCWWG

具体怎么操作?谢谢各位大侠!


论坛徽章:
0
发表于 2013-09-24 09:55 |显示全部楼层
回复 1# fjndhjf

各位大侠帮忙下,多谢!
   

论坛徽章:
0
发表于 2013-09-24 10:38 |显示全部楼层
回复 1# fjndhjf
  1. #!/usr/bin/perl -w
  2. use strict;

  3. while (<DATA>) {
  4.     if (/ABCDEF/../BBBBBB/) {
  5.         print;
  6.     }
  7. }
复制代码

论坛徽章:
0
发表于 2013-09-24 11:24 |显示全部楼层
本帖最后由 fjndhjf 于 2013-09-24 11:38 编辑

回复 3# kk861123

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

@a2=MMDK
        FGGG
       DGFGG

@a3=12ER
        3E32
        FGCWWG

   

论坛徽章:
130
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2013-09-24 12:49 |显示全部楼层
本帖最后由 jason680 于 2013-09-24 12:50 编辑

回复 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__
...   

论坛徽章:
0
发表于 2013-09-24 13:43 |显示全部楼层
  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. print "@$_\n" for @a;
  10. __DATA__
  11. ABCDEF
  12. 12333
  13. 3ERR
  14. FGGG
  15. BBBBBB
  16. VBGGHH
  17. ABCDEF
  18. MMDK
  19. FGGG
  20. DGFGG
  21. BBBBBB
  22. TRGGY
  23. ABCDEF
  24. 12ER
  25. 3E32
  26. FGCWWG
  27. BBBBBB
复制代码

论坛徽章:
0
发表于 2013-09-24 14:11 |显示全部楼层
回复 4# fjndhjf
  1. #!/usr/bin/perl -w
  2. use strict;
  3. use Data::Dumper;

  4. my $file  = do { local $/; <DATA>};
  5. my @array = map { [ split ] } ( $file =~ /ABCDEF(.*?)BBBBBB/mgs );
  6. print Dumper \@array;
复制代码

论坛徽章:
1
操作系统版块每日发帖之星
日期:2016-06-12 06:20:00
发表于 2013-09-24 14:16 |显示全部楼层
ABCDEF与BBBBB是成对出现的?

论坛徽章:
0
发表于 2013-09-24 14:24 |显示全部楼层
回复 8# yakczh_cu

是的哦,多谢各位大侠了,小弟膜拜啊,太厉害了你们!
   
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

DTCC2020中国数据库技术大会

【架构革新 高效可控】2020年12月21日-23日第十一届中国数据库技术大会将在北京隆重召开。

大会设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。

http://dtcc.it168.com


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP