Exécuter le contenu d'une variable

Salut,

je cherche à exécuter le contenu d'une variable qui contient la synthaxe d'une fonction comme dans l'exemple qui suit:

Code:

---

1 2 3 4 5

my $var= "myfunction()" #puis executer $var ?????     sub myfunction(){ return 1;}

---

J'ai testé la fonction eval mais je n'ai pas eu de résultats concluants :bug:

merci pour votre aide

Bonsoir. Je ne vois pas où est le problème avec eval :

Code:

---

1 2 3 4 5

#!/usr/bin/perl -w use strict; sub myfunction(){ print "ooho\n"; return 1;} my $var = "myfunction()"; if (eval $var) {print "oui, tout va bien\n"};

---

Ca veut dire quoi "pas de résultats concluants" ?
Faut toujours donner le max d'infos pour pouvoir être aidé dans un forum.

Bref: en effet, eval() devrait très bien marcher comme montré ci-dessus.
Tu a fait attention à la portée de ta fonction ? ( elle est dans un package par exemple ? )

J'avance.... :roll:

J'ai fait quelques tests et le problème me semble plus clair. Donc je corrige mes propos.
Le code ci-dessus fonctionne bien (toute mes excuses sur le manque de précisions) mais il semble que eval ne soit pas capable d'évaluer une variable contenant une fonction avec des paramètres d'entrés exemple: myfunction("Variable")

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

require "test.pl"; my $var= "myfunction('value')"; $res= eval $var;   print ("$res\n"); #affiche 'myfunction()' et non 1   #alors que: $test= myfunction(); print ("$test\n"); #affiche bien 1 et non 'myfunction()'   ________________________________ #dans un module 'test.pl' sub myfunction(){ my $value= shift(@inputs); return $value;}

---

J'ai trouvé une solution qui permet de contourner le problème mais qui n'est pas très propre :?
Il faut modifier la fonction en supprimant les variables d'entrées (modifier myfunction('value') en myfunction() ) et passer les variables d'entées au moyen d'une tableau déclaré en globale...

L'exemple deviendrait donc:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

require "test.pl";   @inputs="value"; my $var= "myfunction()";   $res= eval $var; print ("$res\n"); #affiche bien 'value'   ________________________________ #dans un module 'test.pl sub function(){ my $value = shift(@inputs); return $value; }   # ####### 1; __END__ # ########

---

Quelqu'un voit-il une autre solution?

Enfin j'ai trouvé la solution. :yaisse2:
Il suffit de rajouter un '&' devant la fonction appelé.
Ce qui donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

require "test.pl";   test();   sub test(){ my $var= "&function('ca marche')"; $res= eval $var; print ("res=$res\n"); #affiche 'myfunction()' et non 1   #alors que: #$test= function(5); #print ("test=$test\n"); #affiche bien 1 et non 'myfunction()'   } ____________________________ #dans un module externe "test.pl" #dans un module 'test.pl' sub function(){ my $value = shift(); return $value;}   ################ 1; __END__ #################

---