Mon programme Perl peut-il exécuter du code stocké dans une base de données?

Question

Est-il possible d'enregistrer du code Perl dans une base de données, puis de le récupérer à l'aide d'une instruction select, puis d'exécuter ce code Perl? J'ai essayé d'utiliser eval, mais cela ne semble pas fonctionner.

Voici ce que je suis en train en ce moment et il ne semble pas fonctionner:

my $temp = $qryResults[0]; 
print $temp."\n"; 
eval{"$temp"}; 

la sortie est $con->Disconnect();exit;

Answer 1

Vous juste besoin:

eval $temp; 

La raison pour laquelle votre version ne fonctionne pas est due à la forme de bloc de eval évaluation comme si vous aviez écrit une chaîne simple:

eval{"perl code here"} 

est comme l'écriture de cette ligne de perl:

"perl code here" 

Ce n'est pas du code, c'est une chaîne. La forme de bloc évalue ce qui se trouve à l'intérieur du bloc. Si une chaîne est à l'intérieur du bloc, c'est juste une chaîne, pas un script. La forme de corde évalue ce qui est à l'intérieur de la corde.

Answer 2

j'ai tout compris; si j'enlève les accolades alors ça marche.