求助：除去成对的括号

yybmsrs

递归：

1. my $foo = '(1,(2,(3,4)))';
   
2. 
   
3. print "$foo => ";
   
4. 
   
5. $foo =~ s/\(/\[/g;
   
6. $foo =~ s/\)/\]/g;
   
7. 
   
8. $foo =~ s/^\[/\(/g;
   
9. $foo =~ s/\]$/\)/g;
   
10. 
    
11. my @foo = eval $foo;
    
12. 
    
13. my $flag = 0;
    
14. 
    
15. @foo = format_array(@foo);
    
16. 
    
17. print "(@foo)";
    
18. 
    
19. sub format_array
    
20. {
    
21.         my @foo = @_;
    
22.        
    
23.         local $" = ",";
    
24.        
    
25.         for my $i (@foo)
    
26.         {
    
27.                 if(ref $i)
    
28.                 {
    
29.                         $flag++;
    
30.                         if($flag == 1)
    
31.                         {
    
32.                                 $i = format_array(@$i);
    
33.                         }
    
34.                         else
    
35.                         {
    
36.                                 $i = "(".format_array(@$i).")";
    
37.                         }
    
38.                 }
    
39.         }
    
40. 
    
41.         return "@foo";
    
42. }

复制代码

试了几个没问题，看有没有别的错误

ace_fei

回复 10# justlooks

谢谢了，我刚用的5.8，难怪执行出错

guap514

1. my $balance = qr/(\((?:[^()]++|(?-1))*+\))*/;
   
2. my $innerRe = qr/(?:[^()]*?$balance)*/;
   
3. while( <DATA> ){
   
4.     chomp;
   
5.     print;
   
6.     if( s/^(\([^()]*?)\(($innerRe)\)/$1$2/ ){
   
7.         print " => $_";
   
8.     }
   
9.     print "\n";
   
10. }
    
11. __DATA__
    
12. (((1,2),3),4)
    
13. ((1,2),(3,4))
    
14. (1,(2,(3,4)))
    
15. (((((1,2),3),4),(5,6)))

复制代码

iLRainyday

回复  ace_fei


    检查下perl的版本，这个是5.10的新特性
justlooks 发表于 2011-02-21 16:09

哪个新特性？我在perlre中也没找到。刚开始我以为是条件判断，后来发现似乎不是...

toniz

:wink: 明明perlre里面就有说明。。。更新下你的PERLDOC版本吧。

glimp

?1，递归