正則表達式在Perl數組

Question

我在Perl中的數組具有這樣的值：

$Array[0] = "[a][b][c] good bad"; 
$Array[1] = "[d] apple"; 
$Array[2] = "[e][f] mango "; 
$Array[3] = "[g] capgemini"; 

我需要一個正EXP指找到[]之間的所有文本。
我寫了這個：

my @matched = grep {$_ ne ""} map { m/\[(.*?)\]/; $1; } @Array; 

然而，這僅找到了第一場比賽，像a從$Array[0]，e從$Array[2]。
我想從$Array[0]得到他們所有的人，如a,b,c。

Answer 1

您對匿名哈希和遺漏簽名的使用很混亂。這個工作對我來說，雖然：

#!/usr/bin/perl 
use warnings; 
use strict; 

use Data::Dumper; 

my @Array; 
$Array[0]= "[a][b][c] good bad"; 
$Array[1]= "[d] apple"; 
$Array[2]= "[e][f] mango "; 
$Array[3]= "[g] capgemini"; 
my @matched = map { m/\[(.*?)\]/g } @Array; 
print Dumper \@matched; 

主要技巧是使用全球匹配和讓匹配/g選項返回所有比賽。