regex - 如何使用 perl 在一行中出现多次的方括号之间提取数据？

Question

我有一行包含方括号数据的多个实例。

[data 1] junk [data 2] junk,junk [data 3] junk [data 4]

有没有人有一个好的正则表达式？所以我可以使用

print $1,$2,$3,$4;

谢谢！

Answer 1

使用Text::Balanced而不是正则表达式。

Answer 2

my $s = "[data 1] junk [data 2] junk,junk [data 3] junk [data 4]";
my ($one, $two, $three, $four) = $s =~ /\[([^\]]*)\]/g;
print $one, $two, $three, $four;

Answer 3

如果您要寻找的只是快速打印输出，那么应该这样做..

$s = q( [data 1] junk [data 2] junk,junk [data 3] junk [data 4] );
print join(', ', @{[$s =~ /\[(.*?)\]/g]}), "\n";