Discussion :

[vince2005]

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 :

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

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

[Gardyen]

Code :

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

foreach VAR (LIST)

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

cf la doc

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 :

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

1
2
3
4
5
6
foreach my $var (@TableauListeBases) 
	{
 		$LaBase = $var;
		print "$LaBase\n";
		toto ;
	}

[Lolo78]

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

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

print "${LaBase}\n";

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

Code :

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

print "$LaBase\n";

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