Discussion :

[toniohouse]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci pour votre aide

[iblis]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"};

[knoodrake]

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 ? )

[toniohouse]

J'avance....

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 :

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
 
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;}

[toniohouse]

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 :

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
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?

[toniohouse]

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

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
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__
#################