while vs foreach var list (@toto)

Bonjour,

j'ai une variable "liste" appelée @toto. Je la remplie par des push tel :

Code:

---

1 2 3

my $test = "toto"; push(@toto, $test);

---

J'ai l'habitude depuis "toujours" de lire mes var liste avec while tel :

Code:

---

1 2 3 4

while (<@toto>) { print $_; }

---

Je suis tombé sur un cas qui remettrait en cause l'utilisation de while pour lire ce type de variable. En effet et voulant "pusher" une chaine contenant une "*", j'ai un soucis.

Code:

---

1 2 3

my $test = "toto*"; push(@toto, $test);

---

mon while ne lit plus rien du tout, alors qu'un foreach fonctionne comme attendu :

Code:

---

1 2 3 4

foreach $_ (@toto) { print $_; }

---

Quelqun pourrait m'expliquer le pourquoi du comment ?

Merci d'avance.

ta syntaxe while ne peut pas marcher: le while <> sert à lire des fichiers, non à iterer un array.

pour un array tu a le choix entre ces syntaxes:

Code:

---

1 2	for my $element (@array) { }

---

Code:

---

1 2	foreach my $element (@array) { }

---

(exactement equivalent)

Code:

---

1 2	while (my $element = shift @array) { }

---

sachant que dans ce dernier cas tu vide effectivement ton array

la syntaxe la plus souhaitable est la premiere
(tu a aussi le for( ;; ) c style, mais ca n'a pas bcp d'interet pour parcourir un array existant)

Citation:

---

Envoyé par pospos

la syntaxe la plus souhaitable est la premiere
(tu a aussi le for( ;; ) c style, mais ca n'a pas bcp d'interet pour parcourir un array existant)

---

L'intérêt peut être de modifier la variable de l'élement plus facilement en fonction du nombre de boucles effectuées, ou de modifier les élements précédents ou suivants du tableau ($tab[$i+1], $tab[$i-1]).

Petite précision, modifier $_ dans un foreach modifie la valeur de l'élement correspondant dans le tableau, ce qui n'est pas le cas si l'on modifie $element ;)

Citation:

---

Envoyé par Woufeil

Petite précision, modifier $_ dans un foreach modifie la valeur de l'élement correspondant dans le tableau, ce qui n'est pas le cas si l'on modifie $element ;)

---

si, c'est aussi le cas avec une variable en my, car c'est alors un alias (ce qui le rend en pratique aussi efficace que d'utiliser $_, et meme un peu plus car "my" est utilisé au lieu d'un "local" implcite avec $_).
Si tu veux faire une modif sans modifier le tableau tu dois faire une copie explicite:

Code:

---

1 2 3 4

for my $elem (@array) { my $copy = $elem; $copy = 1; }

---

Citation:

---

Envoyé par pospos

si, c'est aussi le cas avec une variable en my, car c'est alors un alias (ce qui le rend en pratique aussi efficace que d'utiliser $_, et meme un peu plus car "my" est utilisé au lieu d'un "local" implcite avec $_).
Si tu veux faire une modif sans modifier le tableau tu dois faire une copie explicite:

Code:

---

1 2 3 4

for my $elem (@array) { my $copy = $elem; $copy = 1; }

---

---

:oops: :oops: :oops:
Je sais pas d'où me venais cette idée, désolé...

c'est assez trompeur comme syntaxe
heureusement perl6 va clarifier tout ca (is copy, etc...)
on pourra meme iterer une liste deux elements à la fois, etc.

Afin de ne pas mêler inutilement les autres programmeurs, utilise:

Code:

---

1 2 3

for my $element (@array) { }

---

Il y a plus d'une façon de faire les choses en Perl, mais il est préférable de choisir celle la plus utilisée autant que possible.

Citation:

---

Envoyé par pospos

c'est assez trompeur comme syntaxe
heureusement perl6 va clarifier tout ca (is copy, etc...)
on pourra meme iterer une liste deux elements à la fois, etc.

---

En fait, autant d'élément à la fois que tu veux :)

Code:

---

1 2 3 4 5 6 7

pugs> for (1..9) -> $a, $b, $c { say "$b $a $c" } 2 1 3 5 4 6 8 7 9 undef pugs>

---