Discussion :

[vince2005]

Bonjour,

J'ai une petite question : lorque je veux utiliser la variable $result_TST en dehors de mon if, j'ai l'erreur suivante : Global symbol "$result_TST" requires explicit package name.

Merci de regarder le code ci dessous, vous allez comprendre !

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
 
my $Ligne_TST="sous-travail";
my $FicLog="C:/LOG/20100910__log.txt" ;
my $Ligne="";
 
open (FIC, "<$FicLog") || die "Ouverture impossible du fichier $FicLog: $!";	
	while ($Ligne = <FIC> ) 
   	{  
	    if (grep { $Ligne =~ m/$_/g } $Ligne_TST)
  	   { 
		my (undef,$result_TST) = split(/\s*:\s*/,$Ligne) ;
		$result_TST =~ s/[\t\s\#]//g;
		print "Nom : <<$result_TST>> \n";
                          #le resultat s'affiche bien
	   }
	}				
 
 close (FIC);
print "Nom : <<$result_TST>> \n";
# Le resultat de la variable $result_TST ne s'affiche pas, pourquoi ?

[Philou67430]

L'instruction my défini une variable dont la portée est limitée au bloc dans laquelle elle est introduite. Ainsi, si tu veux utiliser $result_TST, il faut le déclarer au bon endroit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
my $Ligne_TST="sous-travail";
my $FicLog="C:/LOG/20100910__log.txt" ;
my $Ligne="";
my $result_TST;
 
...
 
	    if (grep { $Ligne =~ m/$_/g } $Ligne_TST)
  	   { 
		(undef,$result_TST) = split(/\s*:\s*/,$Ligne) ;
		$result_TST =~ s/[\t\s\#]//g;
 
...

Cela dit attention, $result_TST, en dehors de la boucle, vaudra la dernière valeur affectée.