Bonjour,
 
Je dois actuellement reecrire un programme perl qui fait de la traduction de format de fichier text. Seulement les regles de traduction differ en fonction des differents formats de données en entrée.
Pour cela le programme contient dans un fichier de configuration en XML les differentes regles de transformation sont sous forme de code PERL comme par exemple:
 

<FORMULA>my @customer_tag_tmp=split(/#/,[#e2001c]"|1|");my $quality_tmp; if (defined($customer_tag_tmp[4])) { $quality_tmp=$customer_tag_tmp[4]; } else { $quality_tmp = ""; };$quality_tmp;
</FORMULA>  
[/#000ef0]
 
Le champ |1| est remplacer par ma variable a utilisé avant execution de la regle.
 
$formule =~ s/\|1\|/$data/g;
 
L'execution de ce code est fait par l'intermediaire de la fonction eval
$output_data = eval($formule);
 
Je voulais savoir, sachant que la quantité de données est assez important, si l'execution de code oar l'intermediaire de EVAL prennais du temps et chargeait le system ???
Je voulais savoir aussi, si il etait possible pour eviter d'utiliser EVAL, de crée de maniere dynamique au demarrage du programme un module PERL qui regrouperai mes differentes regles en fonctions, ces dernieres seraient appelées au lieu d'être evalué comme par exemple:
 
sub formula_1{
my $val = shift;
my @customer_tag_tmp=split(/#/,"$val" );
my $quality_tmp;  
if (defined($customer_tag_tmp[4])) { $quality_tmp=$customer_tag_tmp[4]; } else { $quality_tmp = ""; };
return $quality_tmp;
}
 
Merci d'avance

ce que tu peux faire c'est effectivement creer une fonction à la volée kand tu la vois, qui prenne comme parametres les valeurs de |1|, |2|, ...
 
en gors:

Tu veux dire que je n'ai meme pas a construire de module specifique.
Je peux mettre en memoire une fonction en l'evaluant une seule fois a l'ignitialisation. Et apres je l'appel comme je veux avec les arguments.
Si cela marche je te remercie beaucoups.

J'ai un petit soucis.
J'utilise un USE STRICT dans mon programme et l'evaluation ne veux pas se faire.
Message:
Can't use string ("substr("$_[0]",0,16);" ) as a subroutine ref while "strict refs" in use at
 
J'ai essayer en rajoutant:
 eval ('sub { my @var = @_;'.$formula.'}');
 
en ayant remplacer $[x]_ par uen variable declaré de type tableau. mais cela ne change rien.

J'ai essaye de mettre dans ma boucle de creation l'instruction
no strict 'refs';
Mais cela ne change rien

Pour information la formule en question est egale a:
 
<FORMULA>substr("|1|",0,16);</FORMULA>

chez moi ceci marche:

 
ca affichier bien "1234567890123456";

Merci cela fonctionne.
J'avais une coquille dans mon code du coup j'essayais d'executer $a->() au lieux de $b->().
 
Cela fonctionne super bien j'ai gagné enormement en performance.

de rien