regex - Perl 正则表达式匹配模式的多个实例并替换

Question

我有一个如下所示的字符串:

abc[1,2,3].something.here,foo[10,6,34].somethingelse.here,def[1,2].another

我想将此字符串拆分为一个数组，其中包含:

abc[1,2,3].something.here
foo[10,6,34].somethingelse.here
def[1,2].another

但是分割评论是行不通的，所以我的下一个想法是首先用其他东西替换方括号之间的逗号，这样我就可以分割逗号，然后再替换。

我尝试了几种方法但收效甚微。有什么建议吗？

Answer 1

您可以在模式中使用前瞻断言:

my $s = "abc[1,2,3].something.here,foo[10,6,34].somethingelse.here,def[1,2].another";
my @a = split /,(?=\w+\[)/, $s;