Quel est le meilleur moyen d'obtenir les N derniers éléments d'un tableau Perl?Quelle est la meilleure façon d'obtenir les N derniers éléments d'un tableau Perl?
Si le tableau est inférieur à N, je ne veux pas un tas de undefs la valeur de retour.
@last_n = @source[-$n..-1];
Si vous avez besoin d'aucun undef s, puis:
@last_n = ($n >= @source) ? @source : @source[-$n..-1];
Je pense que ce que vous voulez que l'on appelle un slice.
my $size = (scalar @list) - 1;
my @newList = @list[$size-$n..$size];
@a = (a .. z);
@last_five = @a[ $#a - 4 .. $#a ];
say join " ", @last_five;
sorties:
v w x y z
simple, pas de maths:
@a = reverse @a;
@a = splice(@a, 0, $elements_to_keep);
@a = reverse @a;
Cela ne fonctionne pas si @source a moins de $ n éléments. – mike
Cela fonctionne bien. undefs entrent dans @last_n dans les positions pour lesquelles @source n'a aucune valeur, ce qui est correct pour une sémantique non-entièrement déraisonnable de ce que signifie « prendre les derniers éléments N ». – chaos
oh, je n'ai jamais utilisé des indices négatifs comme ça, j'ai appris quelque chose aujourd'hui! – Nathan