Discussion :

[KinGTLoL]

Bonjour Mesdames, Messieurs,

Je vous sollicite pour une petite aide :

J'analyse des logs depuis une base de données, et j'extrais certaines données depuis ce type de message :

2015-08-28 11:07:01|mailproxy13|postfix/smtps/smtpd[12167]: E95432403E0: client=dolizon.domaine.fr[10.117.1.18], sasl_method=PLAIN, sasl_username=sophie.dorn@domaine.fr

J'utilise
my $re_hostip=qr{(\d+\.\d+\.\d+\.\d+)]}; \\ recupère l'IP

mais pour recuperer le host en rouge je n'arrive pas
my $re_client=qr{client=(.*)[$};
sa me donne : [
et ceci
my $re_client=qr{client=(.*)};
sa me donne : dolizon.domaine.fr[/COLOR][10.117.1.18], sasl_method=PLAIN, sasl_username=sophie.dorn@domaine.fr

Quelqu'un est en mesure de m'aider ?
Merci,
Bien cordialement.

Bryan MAISANO

[KinGTLoL]

Bon enfaite j'ai trouvé une autre méthode :

sur cette chaine j'ai fais un split :
my $re_client=qr{client=(.*)};

recupération de mon message depuis une requete sql :
($client) = ($ref->{'msg'} =~ /$re_client/);
my @host = split ('\[', $client);
print $host[0];



Du coup sa fonctionne, mais si quelqu'un trouve avec la fonction qr{..} je suis intéressé .

Merci en tout cas bonne journée.

Bien cordialement.
MAISANO Bryan

[Gardyen]

en fait ta première expression est presque correcte:

Code :

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

my $re_client=qr{client=(.*)[$};

Code :

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

my $re_client=qr{client=(.*)\[};

le [ est un caractère spécial et doit être échappé
le $ indique la fin de ligne, or ton expression est au milieu, donc ça ne trouvait rien

[KinGTLoL]

Bonjour,

Je te remercie beaucoup sa fait beaucoup plus propre dans le code.

Bonne journée.
A bientôt.


Bien cordialement