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