(Perl version 5.12)

Bonjour à tous.

Je cherche à récupérer le nom d'une variable donnée en paramètre à une sous-fonction. J'ai écrit la fonction suivante :

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
 
 
sub test_value
{
	my $element ;
 
	# Pour chaque argument donné en paramètre
	foreach $element (@_)
	{
		# Test de la valeur - les arguments doivent être supérieurs ou égaux à 0
		if (($element =~ /\w/) || ($element <0))
		{
			die "\nERREUR DANS LA VALEUR DE LA VARIABLE element\n\telement = $element\n";
		}
	}
}
J'appelle ma fonction ainsi :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 
&test_value ($nom_de_variable1, $nom_de_variable2, $nom_de_ma_variable_problematique);
Or, si le test se révèle positif, le code m'affichera quelque chose comme :

ERREUR DANS LA VALEUR DE LA VARIABLE element
element = ...


alors que je cherche à avoir

ERREUR DANS LA VALEUR DE LA VARIABLE nom_de_ma_variable_problématique
nom_de_ma_variable_problematique = ...


En plus d'avoir le contenu, il me faudrait le contenant.
Je croyais ce problème trivial mais je n'ai rien trouvé jusqu'à maintenant (pas de variables spéciales ou autres spécificités du perl du même goût pouvant m'aider).
En espérant avoir été clair.
Merci d'avance.