如何写括号配对的正则表达式？

pupilzeng

比方说有这样一些字符串,我需要把abc{}中的内容提取出来。

1. 
   
2. abc{123}->123
   
3. abc{123{23a}}->123{23a}
   
4. abc{123{}->123{
   
5. abc{123}}->[color=red]123[/color]
   
6. abc{123{{a}}}{456}->123{{a}}
   
7. abc{123{}456{}}123{456}->123{}456{}
   

复制代码

最好是，如果它内部有没有配对的话，也能检查出来。

roby

我的蠢方法

$roby="abc{123{}";
$roby =~ /\{(.*)\}/;
print "$1";

pupilzeng

最初由 roby 发表
我的蠢方法

$roby="abc{123{}";
$roby =~ /\{(.*)\}/;
print "$1";

呵呵，这样不行的， 比方说：abc{123{}}{}将会得到123{}}{而我想要的是123{}，也怪我没有写清楚要求。

roby

哦
我明白你的意思了
我再想想
哎
最近正在看正则
这东西实在是有点博大精深,现在还处于头晕晕的状态

roby

试试看

#!/usr/bin/perl
$roby=<stdin>;
chomp $roby;
if ($roby =~ /\{(.*)\}\{/) {
        print "$1\n";
}else{
if ($roby =~ /\{(.*)\}/) {
        print "$1";
}
}

pupilzeng

最初由 roby 发表
试试看

#!/usr/bin/perl
$roby=<stdin>;
chomp $roby;
if ($roby =~ /\{(.*)\}\{/) {
        print "$1\n";
}else{
if ($roby =~ /\{(.*)\}/) {
        print "$1";
}
}

看我新加的那一句

roby

晕
如果把你
abc{123{}->123{
abc{123}}->123}
这种没匹对的跟
abc{123{}456{}}123{456}->123{}456{}再结合起来
那就更复杂了
我是搞不定了
头晕
我还搬把小板凳
看那位老大能够解决
好从中学点东西

pupilzeng

或许可以用x运算符解决
现在没空了，等什么时候空下来再来研究一下。

roby

当{}全部成对的情况已经解决

abc{123{}->123{
abc{123}}->123}
这种情况也有了点头绪
先睡觉
明天起来后再继续

pupilzeng

最初由 roby 发表
当{}全部成对的情况已经解决

abc{123{}->123{
abc{123}}->123}
这种情况也有了点头绪
先睡觉
明天起来后再继续

强的。我现在只解决了成对的情况。这是代码，实现得很不好

1. 
   
2. #!/usr/bin/perl -w
   
3. open IN, $ARGV[0] or die("Can't open file: $!\n");
   
4. my @array=<IN>;
   
5. foreach my $content(@array){
   
6.     chomp $content;
   
7.     my $matched = undef;
   
8.     my @result=();
   
9.     for(my $i= length($content); $i>=0; $i--){
   
10.         my $pre = "[^{}]*{[^{}]*" x $i;
    
11.         my $suf = "[^{}]*}[^{}]*" x $i;
    
12.         if($content=~m#abc{(([^{}]*($pre {[^{}]*}$suf )*[^{}]*)*)}#x){
    
13.             push @result, $1;
    
14.             $matched = 1;
    
15.         }
    
16.     }
    
17.     print "Matched: $content -> ", &lengest(\@result), "\n" if $matched;
    
18.     print "Unmatched: $content\n" unless $matched;
    
19. }
    
20. close(IN);
    
21. 
    
22. sub lengest
    
23. {
    
24.     my $array = $_[0];
    
25.     my $len = 0;
    
26.     my $ret = undef;
    
27.     foreach(@$array){
    
28.         if($len < length($_)){
    
29.             $ret = $_;
    
30.             $len = length($_);
    
31.         }
    
32.     }
    
33.     return $ret;
    
34. }
    
35.         
    

复制代码

所使用的测试文件：

1. abc{}
   
2. abc{abc}
   
3. abc{abc{}}
   
4. abc{abc{{abc}}}
   
5. abc{abc{b}a{b}d}
   
6. abc{abc{d}a{b}d}{a}
   
7. abc{abc{d}a{b}d}db{a}
   

复制代码

输出结果：

1. 
   
2. Use of uninitialized value in print at ./gnum.pl line 16, <IN> line 7.
   
3. Matched: abc{} ->
   
4. Matched: abc{abc} -> abc
   
5. Matched: abc{abc{}} -> abc{}
   
6. Matched: abc{abc{{abc}}} -> abc{{abc}}
   
7. Matched: abc{abc{b}a{b}d} -> abc{b}a{b}d
   
8. Matched: abc{abc{d}a{b}d}{a} -> abc{d}a{b}d
   
9. Matched: abc{abc{d}a{b}d}db{a} -> abc{d}a{b}d
   

复制代码

那个警告，我一直没看出来是哪里出问题。