Discussion :

[K0rN111]

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

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

ps: je débute en perl.

[Philou67430]

Pourquoi ne pas simplement utiliser ceci :

Code :

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

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) {
  ...
}

[Philou67430]

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

Code :

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

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
}

[Philou67430]

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.