Regex modification email

Bonjour,

J'utilise un programme écrit en perl mais une regex m'embête, j'aimerais chercher dans un fichier toute les adresse email ce finissant par @gmail.com ou aol.com etc... mais je ne trouve pas comment faire.

voila la regex qui pose problème

Citation:

---

=~ m/([a-z_\-.0-9]+@[a-z_\-.0-9]+)/i)

---

ps: je débute en perl.

Pourquoi ne pas simplement utiliser ceci :

Code:

---

1 2 3 4 5 6

use Regexp::Common qw[Email::Address];   my @mail = $texte =~ m{(RE{Email}{Address})}g; foreach my $google_aol (grep m{(?:gmail.com|aol.com)$} @mail) { ... }

---

Une autre manière à l'aide de Email::Address :

Code:

---

1 2 3 4 5 6 7

use Email::Address;   my @mail = Email::Address->parse($texte) =~ m{(RE{Email}{Address})}g; foreach my $google_aol (grep $_->host =~ m{gmail\.com|aol\.com} @mail) { # utiliser $google_aol->address pour obtenir l'addresse email complète }

---

Je précise que je n'ai pas testé spécifiquement ces sources (même si j'ai testé les 2 techniques en uniligne), il peut subsister une erreur de syntaxe lors de la copie/adaptation dans les messages.