Discussion :

[maxlegrand]

Bonsoir,

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

Code :

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

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 :

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

1
2
3
erreur
---------------
services est dans la chaine

Alors que je souhaiterai obtenir :

Code :

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

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

[Schmorgluck]

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.