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

yilong777jp

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

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

zhlong8

1. use 5.012;
   
2. use warnings;
   
3. 
   
4. my %tags;       #为 key => [行号1, 行号2, 行号3,...]结构
   
5. my @result;
   
6. my $line = -1;
   
7. 
   
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.     }
    
16. 
    
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
   
2. 
   
3. /begin a
   
4. 22222
   
5. /begin c
   
6. 324333
   
7. 324234
   
8. /end c
   
9. /end a
   
10. 
    
11. 333333
    
12. 
    
13. /begin b
    
14. 44444
    
15. /end b
    
16. 
    
17. 555555
    
18. /begin a
    
19. 66666
    
20. 77777
    
21. /end a

复制代码

输出

1. 11111
   
2. 
   
3. 333333
   
4. 
   
5. 555555

复制代码

Monox

回复 1# 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 就是楼主提供的文件，不支持嵌套。

yilong777jp

谢谢大家的及时回复，但我想删除的是begin后名字重复的部分，就是说如果有2个begin a 就删除一个begin a到end a的内容，保留一个和其余不重复的
输出为
11111

/begin a
22222
/end a

333333

/begin b
44444
/end b

555555

谢谢

Monox

回复 4# yilong777jp
你都没试过上面的例子，我给的代码就可以办到。只是不支持嵌套的而已。是完全按照你的意思和例子给的方案。

zhlong8

回复 4# yilong777jp


    遇到一个 \begin X 先看是不是已经存在，不存在记录下存在然后继续，存在就吃到 \end X ……

yilong777jp

楼上的能给个代码么？
我是初学者，向大家多多学习，谢谢！！

zhlong8

1. use strict;
   
2. use warnings;
   
3. 
   
4. my %tags;
   
5. 
   
6. LOOP:
   
7. while (<>) {
   
8.     if (m!^/begin (\w+)!) {
   
9.         if ($tags{$1}++) {
   
10.             while (<>) {
    
11.                 next LOOP if m!^/end $1!;
    
12.             }
    
13.         } else {
    
14.             print;
    
15.             next;
    
16.         }
    
17.     }
    
18.     print;
    
19. }

复制代码

yilong777jp

谢谢 楼上，
好好学习学习

yilong777jp

$tags{$1}++

好像是找重复的值......

怎么理解这句呢???请指点!!