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

Question

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

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个值)我该怎么做？

Answer 1

限制它可以分成的元素数量：

split(',', $string, 4)