Comment faire rétrécir un tableau en Perl?

Vos options sont quasi-illimitées (j'ai souligné les cinq approches ici), mais votre stratégie sera dicté par exactement ce que vos besoins et vos objectifs sont. (tous les exemples convertir @tableau n'avoir pas plus de $N éléments)

---

[MODIFIER]

Comme d'autres l'ont souligné, le chemin suggéré dans la question d'origine n'est pas réellement obsolète, et il est le plus rapide, tersest, mais pas nécessairement la solution la plus lisible. Il a aussi pour effet de bord de l'expansion d'un tableau de moins de $N éléments avec les éléments vides:

$#array = $N-1;

---

Moins de code:

#best for trimming down large arrays into small arrays
@array = $array[0..($N-1)];

Plus efficace pour la coupe d'un petit nombre d'un grand tableau:

#This is a little less expensive and clearer
splice(@array, $n, @#array);

Indésirables dans presque tous les cas, sauf si vous aimez vraiment les supprimer():

#this is the worst solution yet because it requires resizing after the delete
while($N-1 < $#array)
{
   delete(array[$i]);
}

Utile si vous avez besoin du reste de la liste dans l'ordre inverse:

#this is better than deleting because there is no resize
while($N-1 < $#array)
{
    pop @array;
    #or, "push $array2, pop @array;" for the reverse order remainder
}

Utile pour gagner du temps dans le long terme:

#don't put more values into the array than you actually want

Vous essentiellement a donné la réponse canonique vous-même. Vous raccourcir un tableau en paramètre le dernier indice:

$#Array = 42

L' $#Foo notation pour désigner le dernier indice du tableau est absolument pas obsolète. De même, l'affectation à il ne sera pas obsolète soit. Citant le perldata documentation:

La longueur d'un tableau est une valeur scalaire. Vous pouvez trouver la longueur de
tableau @jours en évaluant $#jours, comme dans le csh. Cependant, ce n'est pas le
longueur du tableau; c'est l'indice du dernier élément, qui est un
une valeur différente, car il ya habituellement un 0e élément. De l'affectation à
$#de jours réellement les changements de la longueur du tableau. Raccourcissement d'un tableau
de cette façon, détruit intervenant valeurs. L'allongement d'un tableau qui a été
préalablement raccourcie ne pas récupérer les valeurs qui étaient dans ces
éléments. (Il l'habitude de le faire en Perl 4, mais nous avons dû briser ce à
assurez-vous que les destructeurs sont appelés quand prévu.)

$#{$TABLEAU[$i]} = 42;

Il y a deux façons d'interpréter la question.

• Comment réduire la longueur du tableau?
• La façon de réduire la quantité de mémoire consommée par le tableau?

La plupart des réponses jusqu'à présent se concentrer sur l'ancien. À mon avis, la meilleure réponse à ce qui est le épissure fonction. Par exemple, pour supprimer 10 éléments à partir de la fin:

splice @array, -10;

Toutefois, en raison de la façon dont Perl gère la mémoire pour les tableaux, la seule façon de s'assurer qu'un tableau prend moins de mémoire est à copier dans un nouveau tableau (et de laisser le souvenir de l'ancien tableau être récupérée). Pour cela, j'aurais tendance à penser à l'aide d'un tranche opération. E. g., pour supprimer 10 éléments:

@new = @old[ 0 .. $#old - 10 ]

Voici une comparaison de différentes approches pour un 500 élément de tableau (à l'aide de 2104 octets):

  original: length  500 => size 2104
     pound: length  490 => size 2208
    splice: length  490 => size 2104
    delete: length  490 => size 2104
     slice: length  490 => size 2064

Vous pouvez voir que la tranche de l'opération (copié dans un nouveau tableau) a un plus petit taille que l'original.

Voici le code que j'ai utilisé pour cette analyse:

use strict;
use warnings;
use 5.010;
use Devel::Size qw/size/;

my @original = (1 .. 500);
show( 'original', \@original );

my @pound = @original;
$#pound = $#pound - 10;
show( 'pound', \@pound );

my @splice = @original;
splice(@splice,-10);
show( 'splice', \@splice);

my @delete = @original;
delete @delete[ -10 .. -1 ];
show( 'delete', \@delete );

my @slice = @original[0 .. $#original - 10];
show( 'slice', \@slice);

sub show {
    my ($name, $ref) = @_;
    printf( "%10s: length %4d => size %d\n", $name, scalar @$ref, size($ref));
}