Discussion :

[chava2b]

Salut,

je suis en train d'essayer de bricoler un truc mais je rame en perl... donc je cherche un peu d'aide.

J'ai une chaine ou il y a 1 ou plusieurs IP;
Je veux recuperer la derniere IP qui est dans cette chaine;

Quelqu'un peu m'aider ?

merci!


ex:

my $chaine='Wed, 05 Jul 2006 22:05:50 CEST:19826: from="Olivier" <olivier@xx.com>,subj=az32, x-qmail-scanner-message-id=<000301c6a06e$2a214cf0$ad86c953@xx> via SMTP from 193.252.22.31 -- from smtp11.orange.fr (193.252.22.31)by 0 with SMTP; 5 Jul 2006 20:05:50 -0000 from tine (AMarseille-152-1-64-173.w83-201.abo.wanadoo.fr [83.201.134.173])by mwinf1104.orange.fr (SMTP Server) with ESMTP id 9ADE91C000A0for <olivier@xx>; Wed, 5 Jul 2006 22:04:00 +0200 (CEST)';


je veux recuperer : 83.201.134.173

[gerald2545]

ben c'est bon tu l'as ton IP
bon trêve de plaisanterie

Code :

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

1
2
$chaine =~ m/([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})\]\)by/g;
$mail = $1;

y'a sûrement plus efficace....mais ça devrait fonctionner, sinon il manque pas grand chose

[chava2b]

merci c'est nikel