获取 Perl 数组最后 N 个元素的最佳方法是什么？

Question

获取 Perl 数组最后 N 个元素的最佳方法是什么？

如果数组少于 N，我不希望返回值中有一堆 undefs。

Answer 1

@last_n = @source[-$n..-1];

如果您不需要 undef，那么：

@last_n = ($n >= @source) ? @source : @source[-$n..-1];

Answer 2

我认为你想要的是 slice 。

Answer 3

@a = (a .. z);
@last_five = @a[ $#a - 4 .. $#a ];
say join " ", @last_five;

输出：

vwxyz

Answer 4

简单，无需数学：

@a = reverse @a;
@a = splice(@a, 0, $elements_to_keep);
@a = reverse @a;

Answer 5

由于标量上下文中的 @a 给出数组 a 的长度，并且因为 @a == $#a + 1 （除非 $[ 设置为非零），可以通过 @a[$n..@a-1] -- #tmtowtdi 获取从第 $n 个（从零开始计数）到最后一个元素的切片。

Answer 6

TMTOWTDI，但我认为这更容易阅读（但从 @source 中删除元素）：

my @last_n = splice(@source, -$n);

如果您不确定 @source 至少有 $n 元素：

my @last_n = ($n >= @source) ? @source : splice(@source, -$n);