Perl正则按逗号分割带括号字符串时数组末尾空元素问题求助

咱们先拆解下问题：你写的这个正则确实很巧妙，能正确处理嵌套括号里的逗号，但最后总会多一个空字符串塞进数组——这是因为正则最后用了(?: ,\s* | $)作为终止条件，当字符串走到末尾时，$会被匹配，此时前面的捕获组$1只能捕获到空内容，所以最后一次循环会把空字符串push进去。

给你几个可行的解决办法，按需选择：

方法1：修改正则，强制捕获非空内容 #

直接把捕获组里的量词从*（允许匹配0次或多次）改成+（要求至少匹配1次），从根源上避免捕获空字符串。调整后的代码如下：

my $string = '$n(bar,foo), (bar),a.*$n(f04((?!z).)*)b, hello$n(((((((abcdef)))))))world';
my @array;
push @array, $1 while $string =~ / ((?: [^(),]+ | ( \( (?: [^()]+ | (?2) )* \) ) )+) (?: ,\s* | $) /xg;

# 输出结果：['$n(bar,foo)', '(bar)', 'a.*$n(f04((?!z).)*)b', 'hello$n(((((((abcdef)))))))world']

这个方法最直接，适合你的场景（原字符串里没有合法的空分割项）。

方法2：事后过滤空元素 #

如果不想修改正则，或者以后可能需要保留合法的空项（比如两个逗号之间的空内容），可以在push完成后过滤掉空字符串：

my $string = '$n(bar,foo), (bar),a.*$n(f04((?!z).)*)b, hello$n(((((((abcdef)))))))world';
my @array;
push @array, $1 while $string =~ / ((?: [^(),]+ | ( \( (?: [^()]+ | (?2) )* \) ) )*) (?: ,\s* | $) /xg;

# 过滤掉空字符串
@array = grep { length $_ } @array;

这里用grep { length $_ }筛选出长度大于0的元素，简单高效。

方法3：换一种匹配思路（更简洁） #

咱们可以直接匹配所有符合要求的分割项，不用循环push。正则逻辑改成：匹配开头或者逗号+空格，然后捕获后面的非空项（支持嵌套括号）：

my $string = '$n(bar,foo), (bar),a.*$n(f04((?!z).)*)b, hello$n(((((((abcdef)))))))world';
my @array = $string =~ /(?:^|,\s*)((?:[^(),]+|\((?:[^()]+|(?1))*\))+)/g;

这个写法一步到位得到目标数组，也不会产生空元素。

内容的提问来源于stack exchange，提问作者zubug55