Perl：grep数组中数组的值

Question

如何从数组数组中grep值？ 我的尝试：

my $match =grep (/value/, @array);

if ( $match <= 0 ) { ... }

我总是把零作为不正确的输出。

我可以在2 for循环之后打印$ value，所以我认为grep仅在有1个循环时才有效。

for $value (array) {
    for my $value1 (@$value) 
    { print $value1 }; 

感谢。

Answer 1

将第一级数组grep转换为@result

my @result = grep { grep { /search/ } @$_ } @array;

将最终字符串加入@result，

my @result = grep { /search/ } map { @$_ } @array;