Extraction string depuis des lignes de logs

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

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

en fait ta première expression est presque correcte:

Code:

---

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

---

Code:

---

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

Bonjour,

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

Bonne journée.
A bientôt.


Bien cordialement