獲取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;