Discussion :

[burhud]

Bonjour à tous !

Voila une question toute simple : comment évaluer une condition qui est contenu dans une chaîne de caractères ?? Autrement dit, comment faire pour que perl considère cette chaîne de caractère comme du code ?

Je suis parti sur eval, mais est ce que je pars sur la bonne piste ?

[Arioch]

Bonjour,

as-tu un exemple à nous montrer en ce qui concerne le type de données que tu as et ce que tu veux en extirper ?

[burhud]

Bonjour,

as-tu un exemple à nous montrer en ce qui concerne le type de données que tu as et ce que tu veux en extirper ?

No problemo :

Code :

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

1
2
3
4
my $fonction = "1000 <= id and id < 5000";
 
$fonction =~ s/id/6000/g;                                                                               
my $result = eval("if ($fonction) { print 'oui\n' } else { print 'non\n'}");

En clair la ca marche, mais j'aimerais faire un eval ($fonction) directement, et récupérer le resultat de ma condition...

Je regardais du coté des

Code :

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

do {local $/; $fonction};

mais sans conviction...

Et quand je fais un print eval($fonction) il me print le resultat de l'exécution du eval, et non le résultat de l'évaluation...

[burhud]

En fait, ma condition, dans le cas où elle est vraie, je reçois le résultat 1, donc niquel !

Mais quand la condition n'est pas vérifiée, je reçois chaîne vide...

C'est normal ??

[Jedai]

C'est normal, '' est une valeur fausse en Perl, et 1 une valeur vraie.
Tu peux faire :

Code :

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

1
2
3
4
5
if( eval $fonction ) {
  print "Oui\n";
} else {
  print "Non\n";
}

--
Jedaï