(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 :
J'appelle ma fonction ainsi :
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"; } } }
Or, si le test se révèle positif, le code m'affichera quelque chose comme :
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);
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.
Partager