Cách tốt nhất để có được các phần tử N cuối cùng của một mảng Perl là gì?

Question

Cách tốt nhất để lấy các phần tử N cuối cùng của một mảng Perl là gì?

Nếu mảng có ít hơn N, tôi không muốn một bó số undefs trong giá trị trả lại.

Answer 1

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

Nếu bạn không cần undef s, sau đó:

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

Answer 2

Tôi nghĩ điều bạn muốn được gọi là 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ết quả đầu ra:

v w x y z

Answer 5

đơn giản, không có môn toán:

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