我已经搜索了在Perl中返回数组的偶数和奇数元素的示例,并使用map和grep查看了一些示例.
@array = ('a','b','c','d','e','f','g');
@list = grep {$_ % 2} 0..$#array;
我试图从给定的数组返回b,d,f但它只返回数字而不是实际值.
如何获得实际值？
解决方法
使用带有grep()的数组切片来生成索引列表.
my @array = qw(a b c d e f g);
my @list = @array[ grep { $_ % 2 } 0 .. $#array ];