Bonjour

j'ai une fonction qui me permet de logger (INFO_VAR) le contenu d'un hash

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
	sub INFO_VAR
	 {
	  my (%VAR)			= @_;
	  my $DATA			= "\n\t\t$#VAR =";
	  foreach my $KEY (keys %VAR)
	   {
		$DATA .= "\n\t\t\t$KEY => $VAR{$KEY}";
	   }
	  PLog ($PLOG,"$DATA");	   
	 }
Quand je passe cette fonction avec cet exemple, je n'arrives pas à afficher le nom du hash %FILES

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
	my %FILES		= (
					     LOG		=> 'nomfichierdelog.log',
					     SRC		=> 'listedesfichiers.txt',
					     PTH		=> '',
					     INI		=> '',
					     PXC		=> ''
					   );
INFO_VAR(%FILES) if ($VERBOSE eq 1);
comme puis-je afficher le nom de cette variable :
Résultat souhaité en sortie.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
		%FILES =
			LOG => nomfichierdelog.log
			SRC => listedesfichiers.txt
			PTH => 
			INI  =>