perl – 在逗号上拆分,但仅在不在括号中时

我试图用逗号分隔符对字符串进行拆分

my $string='ab,12,20100401,xyz(A,B)';
my @array=split(',',$string);

如果我如上所述进行拆分,则数组将具有值

ab
12
20100401
xyz(A,B)

我需要如下的价值观.

ab
12
20100401
xyz(A,B)

(不应将xyz(A,B)拆分为2个值)
我怎么做？

解决方法

use Text::Balanced qw(extract_bracketed);
my $string = "ab,B(a,d))";
my @params = ();
while ($string) {
    if ($string =~ /^([^(]*?),/) {
        push @params,$1;
        $string =~ s/^\Q$1\E\s*,?\s*//;
    } else {
        my ($ext,$pre);
        ($ext,$string,$pre) = extract_bracketed($string,'()','[^()]+');
        push @params,"$pre$ext";
        $string =~ s/^\s*,\s*//;
    }
}

这支持：

>嵌套括号;>空田;>任何长度的字符串.