Discussion :

[blacksnake]

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 :

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

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");
}

[xdelatour]

Bonjour,

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

[tsuji]

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 perl :

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

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";

[olivier1969]

Bonjour,

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

-> c'est sur ...

Code :

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

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 :

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

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" 
}