Problème de parsing

Bonsoir,

j'ai écrit le code suivant mais ça ne me donne pas du tout ce que je voudrais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#usr/bin/perl -w   #test de parsing my $from; $from = "12443@services.test1.fr"; if ($from =~ /\@services\.test1\.fr/i){ print " test1\n"; } elsif($from =~ /\@services\.test2\.fr/i){ print "test2\n"; }else{ print "erreur\n"; }   print "---------------\n";   if($from =~ /@services1/){ print "services est dans la chaine"; } else{ print "services n'est pas present"; }

---

En sortie, j'obtiens :

Code:

---

1 2 3

erreur --------------- services est dans la chaine

---

Alors que je souhaiterai obtenir :

Code:

---

1 2 3

test1 --------------- services n'est pas present

---

Dans le 2ème cas, je souhaite que la chaine qui est donné à matcher doit être exactement "@services" pour avoir une réponse positive.

Comment modifier le code pour obtenir, ce que je souhaite.

Merci

Halala, on ne le dira jamais assez : il faut utiliser les pragmas strict et warning dans TOUS les scripts (à moins d'avoir une raison précise pour s'en passer, ce qui est rarissime).

Et ce que je vois-là en est une preuve supplémentaire. Au moins, avec le pragma strict, ton programme n'aurait tout simplement pas tourné, et Perl t'aurait dit pour quelle raison : parce que tu interpoles dans une chaîne de caractères une variable non déclarée, en l'occurence un tableau, et plus précisément @services. Eh oui. Donc, en mettant ta chaînes entre apostrophes, ou en échappant le @, ça devrait marcher un peu mieux, déjà. Pour ton premier test, en tout cas.

(Au fait, ton shebang est erronné : c'est #!/usr/bin/perl -w qu'il faut mettre en première ligne, pas #usr/bin/perl -w. Ça t'aurais permis d'avoir les warnings qui t'auraient mis sur la bonne piste.)

Pour ce qui est de ton deuxième test, c'est plus ou moins le même problème : tu n'a pas échappé le @, résultat la variable @services est interpolée dans le motif de la regex. Comme elle est vide, ta regex est vide, et une regex vide correspondant à n'importe quelle chaîne, ton test est toujours vrai.