小编moi*_*scr的帖子

我发现自己想要找到数组中最后一个非零元素的索引.所以,给定:

my @array = (0,0,5,9,0,0,0,7,0,3,0,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,但没有找到一个很好的方法,并希望非核心模块独立的方法.

有什么想法吗？

干杯