recuperation de variable dans une fonction

Bonjour,


J'affecte une valeur à une variable "LaBase" que je veux exploiter dans ma fonction toto. Lorsque je reprends cette variable dans ma fonction, elle n'est pas récupéré.

Merci pour votre aide.
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

my $LaBase; my @TableauListeBases;   sub toto () {   print ">${LaBase}<\n";   }       if ( ${ListeBase} ne "ALL" ) {   @TableauListeBases = split ',', ${ListeBase} ;   foreach ${LaBase} (@TableauListeBases) {   print "${LaBase}\n"; toto ; }     }

---

Code:

---

foreach VAR (LIST)

---

la variable VAR dans un foreach est utilisée localement, elle reprend sa valeur à la fin.

cf la doc

Citation:

---

The foreach loop iterates over a normal list value and sets the variable VAR to be each element of the list in turn. If the variable is preceded with the keyword my, then it is lexically scoped, and is therefore visible only within the loop. Otherwise, the variable is implicitly local to the loop and regains its former value upon exiting the loop.

---

tu dois assigner ta variable à l'intérieur de la boucle, par exemple:

Code:

---

1 2 3 4 5 6

foreach my $var (@TableauListeBases) { $LaBase = $var; print "$LaBase\n"; toto ; }

---

++ pour Gardyen qui a bien expliqué le problème, j'ajouterai seulement qu'il n'est pas nécessaire en Perl d'utiliser des accolades pour utiliser une variable:

Code:

---

print "${LaBase}\n";

---

comme on le fait souvent en shell.
Ecris plus simplement:

Code:

---

print "$LaBase\n";

---

(sauf dans les cas où il y a un risque d'ambiguïté dans une chaîne de caractères.