Quelle est la meilleure façon d'obtenir les N derniers éléments de Perl tableau?

Quelle est la meilleure façon d'obtenir les N derniers éléments de Perl tableau?

Si le tableau est inférieur à N, je ne veux pas d'un tas de undefs dans la valeur de retour.

InformationsquelleAutor mike | 2009-03-04
  1. 35
    @last_n = @source[-$n..-1];

    Si vous n'avez pas besoin undefs, alors:

    @last_n = ($n >= @source) ? @source : @source[-$n..-1];
    • Cela ne fonctionne pas si @source a moins de $n éléments.
    • Il fonctionne bien. undefs aller dans @last_n dans les postes pour lesquels @source n'a pas de valeurs, ce qui est correct pour certains, pas forcément déraisonnable de la sémantique de ce que signifie "prendre les N derniers éléments".
    • C'est vraiment intelligent!
    • Je suis intrigué de savoir ce qui vous a surpris. Est-ce la arithmétiques avec des nombres entiers négatifs? Espérons que l'expression conditionnelle est évident.
    • Cela fait neuf ans, mais je suppose que parce que 3..1 ne fonctionne pas n'avais pas considéré comme -3..-1.
    • Ah, c'est ce que j'ai deviné, et il semble qu'au moins quatre personnes sont d'accord avec vous. Mais neuf ans? Pas depuis la rédaction de Perl certainement, et probablement pas, puisque l'arithmétique des nombres entiers.

    InformationsquelleAutor chaos
  2. 6

    Je pense que ce que vous voulez est appelé un tranche.

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

    sorties:

    v w x y z

    InformationsquelleAutor Nathan
  4. 1

    simple, pas de mathématiques:

    @a = reverse @a;
@a = splice(@a, 0, $elements_to_keep);
@a = reverse @a;
    InformationsquelleAutor sbin_bash
  5. 0

    Comme @un dans un contexte scalaire donne la longueur sur un tableau a et parce @a == $#a + 1 (sauf $[ est fixé à la non-nulle), on peut obtenir de la tranche de la $n-ième (compter à partir de zéro) pour le dernier élément par @a[$n..@a-1] -- #tmtowtdi.

    InformationsquelleAutor serolmy
  6. -1

    TMTOWTDI, mais je pense que c'est un peu plus facile à lire (mais supprime les éléments de @source):

    my @last_n = splice(@source, -$n);

    Et si vous n'êtes pas sûr que @source a au moins $n éléments:

    my @last_n = ($n >= @source) ? @source : splice(@source, -$n);
    • Que supprime les éléments du tableau d'origine. Une tranche de tableau les laisse en place, ce qui est le plus probable, ce qui est voulu.
    InformationsquelleAutor user2355282