perl 匹配嵌套括弧問題

標籤：

text：(1+2(123+(888)3)ddf)wwww(sdf(sdfdsf)gggg)Match:1+2 123+ 888 3 ddf sdf sdfdsf gggg

符合代碼:

#!/usr/bin/perluse strict;use warnings;use re ‘eval‘;my $str= ‘(1+2(123+(888)3)ddf)wwww(sdf(sdfdsf)gggg)‘;my @arr;my $re = qr/(?{local $a=0})(?>(?:([^()]+)(?{push @arr,$1})| #將匹配到得內容push到@arr#固化分組，減少回朔。\((?{$a++})|   #遇到開括弧$a+1\)(?(?{$a!=0})(?{$a--})|       #如果$a不等於0則遇到閉括弧$a-1(?!)))*)(?(?{$a!=0})(?!))/x; # 否則繼續匹配，如果繼續遇到$a不等於0 繼續匹配到行尾1 while($str =~ /\($re\)/g);print join("\n",@arr);

 

perl 匹配嵌套括弧問題