我试图用逗号分隔符对字符串进行拆分
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*//;
}
}
这支持：
>嵌套括号;>空田;>任何长度的字符串.