Récupérer le nom d'une variable donnée en paramètre à une sous-fonction

(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:

---

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:

---

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.

Bonjour,

Dans ce cas, pourquoi ne pas utiliser une table de hashage avec comme clé ton nom de variable et comme valeur, ta valeur à tester ?

Du style :
nom_de_variable1 => 12
nom_de_variable2 => 14
nom_de_ma_variable_problematique => abcd

Comme cela si ton test échoue tu affiches la clé ...

Bonjour Beniou,

La méthode que tu proposes fonctionne effectivement mais n'est pas franchement portable pour mon application... en effet j'utilise ma sous-fonction pour tester le contenu de variables mais également des éléments de tableaux voire des éléments de tableaux de tableaux.

A moins d'initialiser toutes les variables que je souhaite tester dans une table de hashage et à moins de ne les manipuler qu'à travers cette table, je ne vois donc pas comment utiliser ta méthode.

Si quelqu'un a une autre solution à proposer, je suis preneur sinon quoi je mettrai ta méthode en place (le nombre de variables différentes manipulées n'est pas très important).

Sous réserve que les variables recherchées soient globables (our) ; sous réserve que le pragma "no strict qw(refs)" soit utilisé ; sous réserve que les noms "complets de variables" soient fournis à la fonction test_value :
tu devrais pouvoir déréférencer les noms de variables dans test_value(), de la façon suivante :

Code:

---

1 2 3 4 5 6 7

sub test_value { $$test_variable_scalaire; # Pour un scalaire @$test_variable_array; # Pour un tableau %$test_variable_hash; # Pour un hash } test_value('$::scalaire1', '@::array1', '%::hash1')

---

Mais très franchement, l'usage d'objet ou de structures telles que Beniou la présenté est bien plus sûr.

Il doit y avoir quelque chose que je n'ai pas suivi, parce qu'il me semble qu'il n'y a pas de choix. Si on veut afficher le nom de la variable en plus de la valeur, il faut bien que la fonction test_value connaisse ce nom. Donc il faudra bien que le nom lui soit passé. Ce qui reviendra donc à faire passer un tableau de 2-uples (nom,valeur). Ce qui est donc un tableau de hash :lol: comme le dit Beniou.

Ce qui est en cause ici, c'est plutôt que la fonction est laide en tant que telle. Moi je préfère quelque chose de ce type.

Code:

---

1 2 3 4 5

use Carp; $nom_element='nomelem'; $$nom_element=-1; croak ("$nom_element pas beau car erreur value = $$nom_element ") if ( ($$nom_element =~ /\w/) or ($$nom_element <0));

---