嵌套括号的递归匹配中，look-around assertions不生效

routesf

如下程序，括号{}的递归匹配被DATA中的引号中的一个}干扰，导致最终输出的结果少一个}，我试图用(?<!\\)来屏蔽 “dfa-pattern "(ST\x00 01\xC|\x00\xX\x08 00\x\}\x08 0d 0a\x).*";”中的那个导致问题的\},但是不成功，有没有谁用过类似的东西

一个方案是用Text::Balanced，它可以忽略文中处于引号中的{}，但是对格式要求比较严格，不如正则灵活，我想用正则来解决这个问题，但是一直没找到可行的方法

1. #!/usr/bin/perl5.12 -w
   
2. 
   
3. use strict;
   
4. 
   
5. my $ptn_no_keyword = qr/(
   
6.            ([\S]+)\s
   
7.                         (
   
8.                                 \{
   
9.                                         (
   
10.                                                 (?:
    
11.                                                         (?>[^{}]+)
    
12.                                                         |
    
13.                                                         (?3)
    
14.                                                  )*
    
15.                                         )
    
16.                                 \}
    
17.                         )
    
18.         )/x;
    
19. local $/;
    
20. my $cfg = <DATA>;
    
21. if ($cfg =~ /$ptn_no_keyword/) {
    
22.                 print "$1\n";
    
23. } else {
    
24.                 print "Not matched\n";
    
25. }
    
26. __DATA__
    
27. application junos:PCANYWHERE {
    
28.         type PCANYWHERE;
    
29.         index 121;
    
30.         port-mapping {
    
31.                 port-range {
    
32.                         tcp 5631;
    
33.                         udp 5632;
    
34.                 }
    
35.         }
    
36.         signature {
    
37.                 port-range {
    
38.                         tcp 0-65535;
    
39.                         udp 0-65535;
    
40.                 }
    
41.                 client-to-server {
    
42.                         dfa-pattern "(ST|\x00 00 00 00\x).*";
    
43.                 }
    
44.                 server-to-client {
    
45.                         dfa-pattern "(ST\x00 01\xC|\x00\xX\x08 00\x\}\x08 0d 0a\x).*";
    
46.                 }
    
47.                 min-data 8;
    
48.                 order 85;
    
49.         }
    
50. }

复制代码

mcshell

{:3_186:} 写的有点蛋疼 ，效果实现了，我在引号中多加了几个\{\}回复 1# routesf

1. #!/usr/bin/perl5.12 -w
   
2. use strict;
   
3. local $/;
   
4. my $cfg = <DATA>;
   
5. my @m   = $cfg =~ /"[^"]+"/g;    #取引号中的字符串
   
6. my $count;
   
7. for (@m) {
   
8.     1 while (/\\}(?{$count++})/g);
   
9.     1 while (/\\{(?{$count--})/g);    #计算引号中的\{ 或\}个数
   
10. }
    
11. my $ptn_no_keyword = qr/((?{local $a=$count})(?>(?:([^{}]+)|  
    
12.                         {(?{$a++})|      #遇到开括号$a+1
    
13.                         }(?(?{$a!=0})(?{$a--})|  #如果$a不等于0则遇到闭括号$a-1
    
14.                         (?!)))*)(?(?{$a!=0})(?!)))/x
    
15.   ;    # 否则继续匹配，如果继续遇到$a不等于0 继续匹配到行尾
    
16. if ( $cfg =~ /$ptn_no_keyword/ ) {
    
17.     print "$1\n";
    
18. }
    
19. else {
    
20.     print "Not matched\n";
    
21. }
    
22. __DATA__
    
23. application junos:PCANYWHERE {
    
24.         type PCANYWHERE;
    
25.         index 121;
    
26.         port-mapping {
    
27.                 port-range {
    
28.                         tcp 5631;
    
29.                         udp 5632;
    
30.                 }
    
31.         }
    
32.         signature {
    
33.                 port-range {
    
34.                         tcp 0-65535;
    
35.                         udp 0-65535;
    
36.                 }
    
37.                 client-to-server {
    
38.                         dfa-pattern "(ST|\x00 00 \}00 00\x).*";
    
39.                 }
    
40.                 server-to-client {
    
41.                         dfa-pattern "(ST\x00 01\xC|\x00\xX\x08\} \{00\x\}\x08 0d 0a\x).*";
    
42.                 }
    
43.                 min-data 8;
    
44.                 order 85;
    
45.         }
    
46. }

复制代码

yinyuemi

回复 1# routesf

1. my $ptn_no_keyword = qr/(
   
2.            ([\S]+)\s
   
3.                         (
   
4.                                 \{
   
5.                                         (
   
6.                                                 (?:
   
7.                                                         (?>[^{}]+)
   
8.                                                         |
   
9.                                                         (?3)
   
10.                                                         |
    
11.                                                         (?>(\}|\{))   # adding another case
    
12.                                                  )*
    
13.                                         )
    
14.                                 \}
    
15.                         )
    
16.         )/x;

复制代码

routesf

感谢回复，我试了一下这个ptn，发现数据小的时候没问题，如果数据量比较大，则会出现out of memory，可见又加一个alternation对效率的影响非常大，附件是我用的文件，我的机器是CentOS4.5, 1G mem

回复 3# yinyuemi


   

routesf

传不了附件啊
回复 4# routesf


   

routesf

mcshell对regex的了解相当纯熟啊，先感谢，回头好好研究学习一下你的code

回复 2# mcshell


   

yinyuemi

回复 4# routesf


    数据量大的话，一般不推荐re，尤其当使用了回溯，用打点法比较保险和高效

routesf

像mcshell这种算是打点法吗

回复 7# yinyuemi


   

104359176

看不懂需求，通常这种情况，可以先将捣乱的符号用另外一个符号替换掉，然后在做处理。处理完后，在恢复。

mcshell

回复 8# routesf


    和堆栈的算法差不多。。。不过我也不懂什么算法