Discussion :

[nkdb]

Bonjour,

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

Code :

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

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

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

Code :

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

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 :

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

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 :

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

1
2
3
4
 
foreach $_ (@toto) {
  print $_;
}

Quelqun pourrait m'expliquer le pourquoi du comment ?

Merci d'avance.

[pospos]

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 :

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

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

Code :

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

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

(exactement equivalent)

Code :

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

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)

[Woufeil]

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

[pospos]

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 :

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

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

[Woufeil]

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 :

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

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

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

[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.

[GnuVince]

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

Code :

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

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.

[GnuVince]

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 :

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

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>