Discussion :

[Herode]

Bonjour à tous.
Je suis sous Active Perl 5.8.3.809.

Soit le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
my @xdas = ( 't1', 't2', 't3' );
my ( $it, $tmp );
foreach $it (@xdas) {
	$tmp = $it;
	last if $it ge 't2';
}
 
print "\$it = $it  --  \$tmp = $tmp";

Sortie attendue : "$it = t2 -- $tmp = t2"
Sortie obtenue : "$it = -- $tmp = t2"
En sortant du foreach, $it passe undef.

Comment se fesse ????

[Jedai]

En fait, foreach fait un local (ou un my, je ne saurais me prononcer) caché de ton $it quand tu l'utilises comme itérateur, comme le montre ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl
use strict; use warnings;
 
my @xdas = ( 't1', 't2', 't3' );
my ( $it, $tmp );
my $refit = \$it;
foreach $it (@xdas) {
   $tmp = $it;
   print $$refit;
   print $it;
   last if $it ge 't2';
}
 
print "\$it = $it  --  \$tmp = $tmp";

On constate que le $it originel reste bien indéfini à l'intérieur de la boucle... C'est sans doute pour éviter qu'un itérateur intempestif ne rentre en conflit avec une autre variable par erreur.

--
Jedaï

[Herode]

En fait, foreach fait un local (ou un my, je ne saurais me prononcer) caché de ton $it quand tu l'utilises comme itérateur

En effet...
C'est vraiment une horreur. Qui a pondu des specs aussi inutilement piégeuses ????

[Jedai]

Je trouve que c'est plutôt une bonne chose, un itérateur est fait pour être utilisé dans sa propre boucle, pas à l'extérieur. De plus on a souvent tendance à utiliser des termes génériques pour les itérateurs, le même plusieurs fois par script, ce qui rend plutôt fastidieux la compréhension du code si on utilise ce nom en dehors de sa boucle pour désigner l'itérateur lui-même.
Je suppose que tu sais que tu peux utiliser la syntaxe suivante, plus claire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
foreach my $it ( @array ) {
  #code
}

Ainsi $it n'est disponible que dans la boucle (ou en tout cas, il est clair qu'il ne s'agit pas du même $it qu'à l'extérieur de la boucle).

--
Jedaï

[Herode]

C'est vrai qu'il peut y avoir des problèmes de collision de noms. Mais à mon avis, il suffit de s'astreindre à la discipline du "use stricts" et du "my" pour éviter ce genre de soucis, disons dans 99% des cas.

Pour ce qui est de la syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

foreach my $it (@arr ) {...}

je t'accorde volontiers qu'elle est plus propre. Seulement, il est impossible d'utiliser le $it après la fin de la boucle, puisqu'il est local au foreach (et là au moins c'est clair ) C'est pourquoi de temps à autre, quand j'ai besoin de référencer l'itérateur à l'extérieur de la boucle, je le déclare avant.

A ce propos, un détail me turlupine, que je vais vérifier demain (sur ma machine au bureau) avant d'activer le bouton [résolu]. Car en effet, il me semble bien que la boucle qui me pose problème ici, sur ma machine perso, tourne très bien là-bas. Faute de quoi, comme j'utilise souvent cette tournure (qui fonctionne fort bien dans mes langages de programmation habituels), je pense que j'aurais déjà eu des surprises...

Vérification et compte-rendu demain si tout va bien 8)

[2Eurocents]

Le fait que la variable de parcours du foreach soit "localisé" à la boucle est documenté et justifié (dans la partie perlsyn du man et de la doc, si je me souviens bien). Une justification en est que cela permet d'utiliser cette variable comme une 'lvalue', un réceptacle d'affectation, tout en conservant la cohérence du parcours de boucle.

Il est donc possible de modifier le tableau parcouru de cette manière ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
foreach my $p (@t) 
{
  $p = "---[ $p ]---";
}

Par contre, il faut rappeler que la modification de @t durant la boucle est une opération dangereuse aux résultats totalement imprévisibles (enfin, surtout du point de vue fonctionnel)

Pour ce qui est de récupérer l'élément en cours de parcours, il n'y a pas d'autre choix que de passer par une variable externe qui soit affectée dans la boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
use strict; 
 
my @t=qw(aaa bbb ccc ddd eee);
my $p; 
foreach my $pb (@t) 
{ 
  print "$pb\n" ; 
  $p = $pb ; 
  last if ( $pb eq "ccc" ) ; 
} 
print "[$p]\n";

ou de passer par une boucle explicite, sur les indices du tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
use strict; 
my @t=qw(aaa bbb ccc ddd eee);
my $pb ; 
for ( $pb=0 ; $pb < @t ; $pb++) 
{ 
  print "@t[$pb]\n" ; 
  last if ( $pb == 2 ) ; 
}
print "[@t[$pb]]\n";

Mais dans ce cas, vu la syntaxe du code et le manque d'abstraction, à quoi bon faire du PERL

[Herode]

Hé bien comme on peut s'en douter, le détail qui me turlupinait n'est qu'un effet de mon imagination. Peut-être vais-je envisager d'arrêter l'absinthe...

Merci pour les infos en tout cas ! 8)