匹配 perl 正则表达式中括号和方括号之外的所有逗号

这里的问题是在这种情况下识别括号/括号的“平衡”对。这是一个众所周知的问题，有图书馆可以解决这个问题。

然后找到顶级匹配对、(...)/[...]和所有其他 - 并处理“else”。

一种方法，使用Regexp::Common

use warnings;
use strict;
use feature 'say';

use Regexp::Common;

my $str = shift // q{A, t(a,b(c,))u B, C, p(d,)q D,}; 

my @all_parts = split /$RE{balanced}{-parens=>'()[]'}/, $str;

my @no_paren_parts = grep { not /\(.*\) | \[.*\]/x } @all_parts;

say for @no_paren_parts;

这使用了一个很好的split属性来返回包含分隔符的列表，当分隔符模式中的正则表达式捕获时。^†库中的正则表达式这样做，所以我们取回所有部分——字符串的“其余部分”以及正则表达式匹配的部分。分隔符包含成对的分隔符，而其他术语不能，通过构造，所以我通过它过滤掉它们。这打印

A, 
tu B, C, p 
q D,

括号/括号术语消失了，但是字符串的分割方式有点随意。

上面的内容有点“通用”，仅使用库来提取平衡对()/[]以及字符串的所有其他部分。但是我们也可以从字符串中删除这些模式

$str =~ s/$RE{balanced}{-parens=>'()[]'}//g;

留下来

A, 涂 B, C, pq D,

现在可以简单地用逗号分隔

my @terms = split /\s*,\s*/, $str;
say for @terms;

为了

A 
tu B 
C 
pq D

在这种情况下，这是所需的结果，如评论中所述。

另一个最著名的库，在许多方面更为基本，是 core Text::Balance. 见肖恩的答案在这里，例如这篇文章和这一个和这一个的例子。

^†一个例子。和

my $str = q(it, is; surely);

my @terms = split /[,;]/, $str;

一个进入it is surely数组@terms，而

my @terms = split /([,;])/, $str;

我们得到了@terms所有：it , is ; surely