Regex в PERL массива

Question

У меня есть массив в Perl, который имеет значение, как это:

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

мне нужна регулярная ехр, который находит весь текст между [].
Я написал это:

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

Однако это находит только первый матч, как a из $Array[0], e от $Array[2].
Я хочу получить все из них, как a,b,c от $Array[0].

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 вариант для глобального согласования и позволяя сращивание вернуть все матчи.