Portée de variable - if

Bonjour,

J'aimerai savoir pourquoi le code suivant affiche "hello foo" et non "hello bar".

Comment y remédier ?

Merci à vous.

ps : je suppose que la question a été posée x fois, mais je n'ai rien trouvé ....

Code:

---

1 2 3 4 5 6 7 8 9 10

use strict;   my $nom = "foo"; my $str = "hello $nom"; my $i = 1;   if ($i == 1) { $nom = "bar"; print("$str\n"); }

---

Bonjour,

Parce que str vaut "hello foo" et que c'est str qui est affichée.

Cela n'a rien à voir avec "la portée de variable - if"; ça a tout à voir avec le temps d'évaluation d'une variable. Une façon de le faire est de construire une sub anonyme.

Code:

---

1 2 3 4 5 6 7 8

use strict; use warnings; my $nom = "foo"; my $str = "hello $nom"; print $str."\n"; my $strr=sub{"hello $nom"}; $nom = "bar"; print $strr->()."\n"; print &$strr."\n";

---

Citation:

---

Envoyé par xdelatour

Bonjour,

Parce que str vaut "hello foo" et que c'est str qui est affichée.

---

-> c'est sur ...

Code:

---

1 2 3 4 5 6 7 8

my $nom = "foo"; my $str = "hello $nom"; # ici $str vaut bien "hello foo" my $i = 1;   if ($i == 1) { $nom = "bar"; # tu affectes "bar" à la variable $nom mais print("$str\n"); # $str vaut toujours "hello foo" puisque inchangée ... }

---

Code:

---

1 2 3 4 5 6 7 8 9

my $nom = "foo"; my $str = "hello $nom"; # ici $str vaut bien "hello foo" my $i = 1;   if ($i == 1) { $nom = "bar"; # tu affectes "bar" à la variable $nom $str = "hello $nom"; # et la tu affectes "hello bar" à $str print("$str\n"); # du coup $str vaut bien "hello bar" }

---