Discussion :

[pitistef]

Bonjour,
je ne comprend pas très bien le fonctionnement de la fonction eval:
- lorsque je lui passe une chaine contenant des opérations booléennes (&&, ||) elle évalue correctement le résultat
- lorsque je lui passe une chaine contenant des égalités, elle me renvoie 1 si elle est juste et rien du tout sinon (du coup je ne sais pas si le résultat a été évalué et est faux où si la fonction n'a pas réussie à l'évaluer).
Quelqu'un pourrait-il m'expliquer la logique de ce résultat?

[MarneusCalgarXP]

Tu récupères le message d'erreur dans la variable $@:

Code :

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

eval '$answer = $a / $b'; warn $@ if $@;

Voir documentation ici:
http://perldoc.perl.org/functions/eval.html

[pitistef]

Merci pour ta réponse.
En fait, je viens de m'apercevoir que le problème n'est pas lié à la fonction mais plutôt à ma méconnaissance de perl (je débute dans ce langage).
Pourquoi une affectation de type :

Code :

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

$variable = ($var1 == $var2);

ne renvoit-il rien si le test est faux?
Faut-il forcément faire comme ci-après?

Code :

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

$variable = ($var1 == $var2)?1:0;

Je trouve étrange que l'on obtienne 1 si la réponse est vraie et rien du tout sinon....

[MarneusCalgarXP]

En réalité, perl renvoie 1 quand un test est vérifié, et 0 quand un test est faux. Mais un 0 est interprété comme une chaine vide dans un contexte de chaine de caractère. Cependant, tu peux tout à fait comparer le résultat à 0 dans un contexte numérique, ce sera égal..

En revanche, ce n'est pas égal à la chaine de caractère '0'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use warnings;
use Data::Dumper;
 
my $a = 1;
my $b = 2;
 
my $result = ($a == $b);
 
# test dans un contexte de chaine de caractère
print "result vaut ''\n", if ($result eq '');
# test dans un contexte numérique
print "result vaut 0\n", if ($result == 0);

[MarneusCalgarXP]

J'allais oublier, $result ne vaut pas undef non plus. Il y a donc globalement 3 niveaux:

1) undef, la variable n'est pas définie. Tester avec la fonction defined
2) 0 ou '' , équivalent à 'faux'
3) '0', la chaine de caractère contenant un 0

[pitistef]

Ok, merci pour tes réponses.
Elles m'ont bien éclairées.