Perl dizisinin son N öğelerini elde etmenin en iyi yolu nedir?

Question

Perl dizisinin son N öğelerini elde etmenin en iyi yolu nedir?

Dizinin N'den küçük olması durumunda, dönüşte undefs bir demet istemiyorum.

Answer 1

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

sonra bir undef s, gerektiriyorsa:

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

Answer 2

Bence istediğin şey 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; 

çıkışlar: Y Z w

v

Answer 5

basit, matematik yok:

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