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

Question

私は、角括弧で囲まれたデータの複数のインスタンスを含む行を持っています。

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

goo正規表現はありますか？だから私は使用することができます

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

ありがとう！

Answer 1

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 2

正規表現の代わりにText::Balancedを使用してください。

Answer 3

あなたが探して、すべてが迅速にプリントアウトがある場合、これはそれを行う必要があります..あなたは、正規表現がジャンクデータにかなり依存していることを作る方法
print join(', ', @{[$s =~ /\[(.*?)\]/g]}), "\n";