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

Question

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

如果数组小于N，我不想在返回值中使用一堆undefs。

Answer 1

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

如果你不需要undef s，则：

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

Answer 2

我想你想要什么叫做slice。

Answer 3

my $size = (scalar @list) - 1; 
my @newList = @list[$size-$n..$size]; 

Answer 4

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

输出：

，V，W X Y Z^

Answer 5

简单，没有数学：

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