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

发布时间：2020-12-15 22:06:38 所属栏目：大数据来源：网络整理

导读：我试图用逗号分隔符对字符串进行拆分 my $string='ab,12,20100401,xyz(A,B)';my @array=split(',',$string); 如果我如上所述进行拆分,则数组将具有值 ab1220100401xyz(A,B) 我需要如下的价值观. ab1220100401xyz(A,B) (不应将xyz(A,B)拆分为2个值) 我怎么做

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

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$1Es*,?s*//;
    } else {
        my ($ext,$pre);
        ($ext,$string,$pre) = extract_bracketed($string,'()','[^()]+');
        push @params,"$pre$ext";
        $string =~ s/^s*,s*//;
    }
}

这支持：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!