获取数组的实际值

Question

我搜索了在Perl中返回数组的偶数和奇数元素的示例，并使用map和grep看到了一些示例。

@array = ('a', 'b', 'c', 'd', 'e', 'f', 'g');
@list = grep {$_ % 2} 0..$#array;

我试图从给定数组返回b, d, f，但它只是返回数字而不是实际值。

如何获得实际值？

Answer 1

使用带grep()的数组切片生成索引列表。

my @array = qw(a b c d e f g);
my @list  = @array[ grep { $_ % 2 } 0 .. $#array ];