Petite question sur mon script perl

Bonjour à tous je suis nouveau sur le site donc petite présentation.
Alors je suis en ce moment en alternance pour mon M2 réseaux (et système) et au boulot on me demande de faire un script de statistique sur le mail log donc jusque la ca marche.
Cependant j'ai un problème lorsqu'un envoie à plusieurs destinataires exemple :

Citation:

---

Aug 9 14:49:59 newmail clamsmtpd: 46540F: from=A@A.com, to=X@X.com, to=Y@Y.com, to=Z@Z.com, status=CLEAN

---

Par exemple dans cette ligne mon script va récupérer les infos $envoie=A@A.com $dest=X@X.com et je n'arrive pas a trouver comment récuperer les autres.

Voila un extrait de mon script:

Code:

---

1 2 3 4

elsif($_ =~/status=CLEAN/){ if($_ =~/from=([^,]+),\sto=([^,]+),/){ $fromAdr=$1; $toAdr=$2;

---

Et du coup je suis un peu bloqué si quelqu'un pouvais m'aider je vous remercie d'avance :)

Anthony

Tu peux le faire ainsi :

Code:

---

1 2 3

my ($from, @to) = /(?:from|to)=([^,]+),\s*/ if ($from && @to) { }

---

mais ceci suppose que la ligne de log commence toujours par un seul from, et est suivie par un ou plusieurs to.

Une autre manière d'aborder la chose est d'extraire les couples "from/to" avec l'adresse, et de construire, en les splittant, une structure de donnée contenant tous les from et to lus.

Code:

---

1 2 3 4 5

my %mail; map { my ($field, $val) = split /=/; push @{$mail{$field}}, $val } /((?:from|to)=[^,]+),/g; if (@{$mail{from}} && @{$mail{to}}) { # ... }

---

Personnellement, je préfère la deuxième approche, qui est plus sûre.
Il y aurait encore des tas d'autres solutions, comme celle d'extraire les to en match tout depuis "to=" jusqu'à (non inclu) "status=", et en découpant après coup.

Merci pour la réponse philou j'essaie ca et te tiens je viendrai au rapport pour dire si je m'en suis sortie !!!
Encore merci :ccool:

Edit: Bon bah nickel franchement en fait j'avais essayé un truc qui ressemblait un peu mais je n'utilisais ni map ni push j'avais fais un truc un peu crade avec split qui de toute facon ne marchait pas en tout cas merci à toi je peux finir mon script :P