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

routesf

需求是这样的：
1. 有如下文本文件，内容有2种情况，一种是xxx {...多层嵌套{}，层数未知}，另一种是没有{}的类似 version 10.4;
fxp0 {  
        unit 0 {
            family inet {
                address 10.208.85.48/21 {
                    master-only;
                }      
            }      
        }      
    }
apply-groups [ re0 re1 global "${node}" ];
version 10.4;
lo0 {   
        unit 0 {
            family inet {
                address 74.11.0.1/32;
            }      
        }      
    }
2. 我想用一个正则来匹配所有 xxx {...}, 通过@array = $cfg =~ /$ptn/g把它存到一个数组里，如下正则大部分情况下是没问题的，但处理不了下面这种情况，也就是引号里边出现未匹配的{}，但是引号里出现未匹配的{}是允许的
server-to-client {
                    dfa-pattern "(ST\x00 01\xC|\x00\xX\x08 00\x\}\x08 0d 0a\x).*";
                }

my $ptn = qr/(
([\S]+)\s
    (
        \{
            (
                (?:
                    (?>[^{}]+)
                    |
                    (?3)
                )*
            )
        \}
    )
)/x;



回复 9# 104359176


   

yinyuemi

回复 8# routesf

1. 我觉得是的，下面是我写的，思路基本是一样的，供你参考吧
   
2. 
   
3. #!/usr/bin/perl5.12 -w
   
4. 
   
5. use strict;
   
6. 
   
7. my $tag;
   
8. my $text;
   
9. while(<DATA>){
   
10.     if(/(?<!\\)[{]/){
    
11.         $tag = 1;
    
12.             $text = $_;       
    
13.             while(<DATA>){
    
14.             $tag += /(?<!\\)[{]/ ? 1 :
    
15.                 /(?<!\\)[}]/ ? -1 : 0;
    
16.                 $text .= $_;
    
17.             last if ! $tag;
    
18.         }
    
19.             print $text;
    
20.     }
    
21. }
    
22. 
    
23. 
    
24. __DATA__
    
25. xxx
    
26. application junos:PCANYWHERE {
    
27.         type PCANYWHERE;
    
28.         index 121;
    
29.         port-mapping {
    
30.                 port-range {
    
31.                         tcp 5631;
    
32.                         udp 5632;
    
33.                 }
    
34.         }
    
35.         signature {
    
36.                 port-range {
    
37.                         tcp 0-65535;
    
38.                         udp 0-65535;
    
39.                 }
    
40.                 client-to-server {
    
41.                         dfa-pattern "(ST|\x00 00 00 00\x).*";
    
42.                 }
    
43.                 server-to-client {
    
44.                         dfa-pattern "(ST\x00 01\xC|\x00\{\xX\x08 00\x\}\x08 0d 0a\x).*";
    
45.                 }
    
46.                 min-data 8;
    
47.                 order 85;
    
48.         }
    
49. }
    
50. XXX
    
51. 
    
52. xxx
    
53. application junos:PCANYWHERE {
    
54.         type PCANYWHERE;
    
55.         index 121;
    
56.         port-mapping {
    
57.                 port-range {
    
58.                         tcp 5631;
    
59.                         udp 5632;
    
60.                 }
    
61.         }
    
62.         signature {
    
63.                 port-range {
    
64.                         tcp 0-65535;
    
65.                         udp 0-65535;
    
66.                 }
    
67.                 client-to-server {
    
68.                         dfa-pattern "(ST|\x00 00 00 00\x).*";
    
69.                 }
    
70.                 server-to-client {
    
71.                         dfa-pattern "(ST\x00 01\xC|\x00\{\xX\x08 00\x\}\x08 0d 0a\x).*";
    
72.                 }
    
73.                 min-data 8;
    
74.                 order 85;
    
75.         }
    
76. }
    
77. XXX

复制代码

104359176

你需要用一个算法把所有的字符串，也就是 "" 之间的东西替换掉，把替换结果保存到一个别的数据结构中。
剩下的事情就简单了多了。

code "string1" code "string2"

=> code <s1> code <s2>

{
    s1 => 'string1',
    s2 => 'string2',
}

提取完了，然后在替换回来。

pitonas

yinyuemi 发表于 2013-08-23 05:06
回复 4# routesf

1. 用打点法比较保险和高效

复制代码

thanks~ what is 打点法? please give me an example about taht ..

routesf

不错的思路，找空尝试一下
回复 13# 104359176


   

routesf

我理解yinyuemi的打点法是用一个statck，遇到左括号就push，右括号就pop，类似这样的

回复 14# pitonas


   

pitonas

回复 16# routesf


    thanks !
please give me an example about taht...please~~

yinyuemi

回复 14# pitonas

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. my $dots;
   
5. my $ext;
   
6. while(<DATA>){
   
7. 
   
8.         if(/{/){
   
9.                 $dots =~ s/^/./;
   
10.                 p($_);
    
11.                 $ext .= $_;
    
12.                 while(<DATA>){
    
13.                         /{/ ? do {$dots =~ s/^/./} :
    
14.                         /}/ ? do {$dots =~ s/\.//} : do {$dots .= ""};
    
15.                         p($_);
    
16.                         $ext .= $_;
    
17.                         last if $dots !~ /\./;
    
18.                 }
    
19.         }else{
    
20.             p($_)
    
21.         }
    
22. }
    
23. 
    
24. print "\nExtract: \n",$ext,"\n";
    
25. 
    
26. sub p(){
    
27.         print "Dot: $dots\t\t",shift;
    
28. }
    
29. __DATA__
    
30. ###
    
31. xxx{
    
32.     yyy{
    
33.             zzz{
    
34.                 ###
    
35.                 }
    
36.         }
    
37. }
    
38. ###
    
39. 
    

复制代码

yakczh_cu

1.     /{/ ? do {$dots =~ s/^/./} : /}/ ? do {$dots =~ s/\.//} : do {$dots .= ""};

复制代码

这是三目运算吗？　

pitonas

回复 18# yinyuemi
thank you very much!!