[pb de If Oo]

bonjour , j'ai un test a faire en perl

Code:

---

1 2 3 4 5 6 7 8 9 10 11

$char = f; if ($char == 'f') { print "tatata ...."; }   if ($char == 'r') { print "tototo ...."; }

---

et mon probleme est que bien que mon $char = f il rentre dans les deux conditions ...

retour

Code:

---

1 2 3

tatata .... tototo ....

---

je me demandais si il n y avais pas une fonction du type strcomp comme
en c pour tester 2 chaines de caracteres .. mais j'ai pas trouver : |

quelqu'un a une idee ?

En Perl, les tests pour les chaînes de caractères et pour les nombres sont différents, ainsi tu devrais utiliser 'eq' ici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

$char = 'f'; if ($char eq 'f') { print "tatata ...."; }   if ($char eq 'r') { print "tototo ...."; }

---

(je suppose que le "$char = f;" était une faute de frappe... Tu mets bien "use strict;" au début de ton script, n'est-ce pas ?)

--
Jedaï

non ce n'etais pas une faute de frappe :)

mais voila j'ai remplace == par "eq" et ca marche niquel :)

merci merci et bonne année ^^

Si ce n'était pas une faute de frappe, c'était une faute tout cours, et si Perl ne te l'a pas indiqué, c'est que tu n'utilises pas "use strict;", ce qui est une très mauvaise idée....

--
Jedaï

si si j'utilise use strict

mais je suis sur un WIN srv 2003 (taff oblige)

et le debug c pas ca je trouve ,,