获取数组的实际值

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 ];