Meilleure façon d'itérer dans un tableau Perl

Question

Quelle est la meilleure implémentation (en termes de vitesse et d'utilisation de la mémoire) pour itérer dans un tableau Perl ? Existe-t-il une meilleure méthode ? ( @Array ne doit pas être retenu).

Mise en œuvre 1

foreach (@Array)
{
      SubRoutine($_);
}

Mise en œuvre 2

while($Element=shift(@Array))
{
      SubRoutine($Element);
}

Mise en œuvre 3

while(scalar(@Array) !=0)
{
      $Element=shift(@Array);
      SubRoutine($Element);
}

Mise en œuvre 4

for my $i (0 .. $#Array)
{
      SubRoutine($Array[$i]);
}

Mise en œuvre 5

map { SubRoutine($_) } @Array ;

Answer 1

Le point 1 est sensiblement différent des points 2 et 3, puisqu'il laisse le tableau intact, alors que les deux autres le laissent vide.

Je dirais que le numéro 3 est assez farfelu et probablement moins efficace, alors oubliez-le.

Il ne reste donc que les numéros 1 et 2, qui ne font pas la même chose, et l'un ne peut donc pas être "meilleur" que l'autre. Si le tableau est grand et que vous n'avez pas besoin de le garder, généralement Le champ d'application s'en occupera ( mais voyez NOTE ), donc généralement Le numéro 1 reste la méthode la plus claire et la plus simple. Décaler chaque élément n'accélérera rien. Même s'il y a un besoin de libérer le tableau de la référence, j'irais simplement :

undef @Array;

une fois terminé.

• NOTE : La sous-routine contenant la portée du tableau conserve en fait le tableau et réutilise l'espace la prochaine fois. Généralement cela devrait aller (voir les commentaires).