Evaluation d'une condition en String

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

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 ?

Citation:

---

Envoyé par 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 ?

---

No problemo :

Code:

---

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:

---

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... :roll:

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

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

Code:

---

1 2 3 4 5

if( eval $fonction ) { print "Oui\n"; } else { print "Non\n"; }

---

--
Jedaï