首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 请教一个识别后删除的问题

请教一个识别后删除的问题

时间：2010-10-24

来源：互联网

11111

/begin a
22222
/end a

333333

/begin b
44444
/end b

555555

/begin a
66666
77777
/end a

探测到begin后的名字一样的话,就消除/begin到/end行之间的内容.比如上面的文件中删除
/begin a
66666
77777
/end a

一行的删除还有头绪，多行的删除有点没头绪了，
请高手指点！！！谢谢！！

作者: yilong777jp   发布时间: 2010-10-24

本帖最后由 zhlong8 于 2010-10-24 16:48 编辑
  1. use 5.012;
  2. use warnings;

  4. my %tags;       #为 key => [行号1, 行号2, 行号3,...]结构
  5. my @result;
  6. my $line = -1;

  8. while (<>) {
  9.     chomp;
  10.     push @result, $_;
  11.     $line ++;
  12.     if (m!^/begin (\w+)!) {  #记录行号
  13.         exists $tags{$1} ? push(@{$tags{$1}}, $line) : ($tags{$1} = [$line]);
  14.         next;
  15.     }

  17.     if (m!^/end (\w+)!) {    #寻找匹配行号并删除，
  18.                             #不支持 \begin a \begin b \end a \end b这样的交叉结构
  19.         die "not match" unless exists $tags{$1} and @{$tags{$1}};
  20.         splice @result, (pop @{$tags{$1}})-1, $#result; #行号从1 开始，所以要减 1
  21.         $line = $#result;
  22.         next;
  23.     }
  24. }
  25. say for @result;
复制代码
有bug不应该用 $. 已修正

测试数据
  1. 11111

  3. /begin a
  4. 22222
  5. /begin c
  6. 324333
  7. 324234
  8. /end c
  9. /end a

  11. 333333

  13. /begin b
  14. 44444
  15. /end b

  17. 555555
  18. /begin a
  19. 66666
  20. 77777
  21. /end a
复制代码
输出
  1. 11111

  3. 333333

  5. 555555
复制代码

作者: zhlong8   发布时间: 2010-10-24

回复 yilong777jp
  1. perl -lnE '
  2. if (m#/begin (\w+)# .. m#/end ($1)#) {
  3.     say unless $hash{$1};
  4.     m#/end (\w+)# and $hash{$1} = 1;
  5. } else {
  6.     say;
  7. }' txt
复制代码
txt 就是楼主提供的文件，不支持嵌套。

作者: Monox   发布时间: 2010-10-24

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net