regex - perlを使用して1行に数回現れる角括弧の間にデータを抽出するにはどうすればよいですか？

Question

角括弧で囲まれたデータの複数のインスタンスを含む行があります。

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

誰かがgoo正規表現を持っていますか？だから私は使うことができます

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";