perl 匹配嵌套括号问题
Text as follows：(1+2(123+(888)3)ddf)wwww(sdf(sdfdsf)gggg)
Match:
1+2 123+ 888 3 ddf sdf sdfdsf gggg
[*]#!/usr/bin/perl
[*]use 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);
页:
[1]