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

BBDD

1. 
   
2. abc{123}}->123}
   

复制代码

这条不合理，是写错了吗？
我觉得应该是

1. 
   
2. abc{123}}->123
   

复制代码

才对。

pupilzeng

最初由 BBDD 发表

1. 
   
2. abc{123}}->123}
   

复制代码

这条不合理，是写错了吗？
我觉得应该是

1. 
   
2. abc{123}}->123
   

复制代码

才对。

哦，这个问题。其实是这样的:我提的这个问题，并不是一个实际中的问题，只是我在编一个程的时候，突然想到了这一点。于是提出来大家商量一下，有没有什么好的解决办法。
刚刚仔细想了想，觉得abc{123}}->123}是不大合理的。我原来的想法是最大匹配。但是这样会有歧义:

1. 
   
2. abc{123}}{}->123}或者123}}{
   

复制代码

所以觉得应该是123才毕合适，尽早返回。

BBDD

解决了：

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. 
   
5. my $np;
   
6. $np = qr[\{(?:(?>[^{}]+)|(??{$np}))*\}];
   
7. my $abcnp = qr/abc($np)/;
   
8. 
   
9. print "Please input the string: ";
   
10. my $text = <stdin>;
    
11. 
    
12. if ($text =~ /^$abcnp/) {
    
13.   print "Result is $1\n";
    
14. } elsif ($text =~ /^abc(\{.*?\})/){
    
15.   print "Result is $1\n";
    
16. } else {
    
17.   print "No result!\n";
    
18. }
    

复制代码

这个问题可以参考骆驼书中文版的245页。不过那一页上至少有3处印刷错误，大家也要注意了。

roby

必须要下个正确的定义
不然还是容易产生歧义
比如说
abc{123{{456}}{456{}{}123{456}

libinary