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 ?