我发现自己想要找到数组中最后一个非零元素的索引.所以,给定：
my @array = (0,5,9,7,3,0); my $indexLastNonZero = insertElegantMethodHere(@array); # expect $indexLastNonZero to be equal to 9;
我这样做了：
for my $i (0 .. $#array) {
$indexLastNonZero = $i if $array[$i] != 0;
};
我工作,但不知怎的,我不禁觉得必须有一个超级优雅(更聪明？更好？更高效？)在perl中这样做的方式.我查看了List :: Utils,但没有找到一个很好的方法,并希望非核心模块独立的方法.
有什么想法吗？
干杯
解决方法
从数组的末尾开始并向后工作,直到找到非零元素：
my @array = (0,0); my $i = $#array; $i-- while $i >= 0 && $array[$i] == 0; print "The last non-zero element is at index $i\n";
$i> = 0测试用于防止所有元素都为零的边缘情况.在这种情况下,$i的结果值为-1.