Extraire a coup sur une adresse email

Le
Mag
Bonjour,

Je cherche un bout de code qui permet d'extraire a coup
sur une adresse email d'une ligne ;=)

voici deux exemples de variables :

From: "week Steven" <vdizujtct@cordacohomes.net>
To: marie@mondomaine.fr

cela m'aiderais bien car je n'arrive pas a un bon resultat


Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Klaus
Le #144941
On Jun 1, 11:55 am, Mag
Je cherche un bout de code qui permet d'extraire a coup
sur une adresse email d'une ligne ;=)

voici deux exemples de variables :

From: "week Steven" To:


Une recherche vite fait sur CPAN...
http://search.cpan.org/search?query=regexp+email&mode=all

...me donne le module Regexp::Common::Email::Address
http://search.cpan.org/~cwest/Regexp-Common-Email-Address-1.01/lib/Regexp/C ommon/Email/Address.pm

Je ne connais pas ce module, mais il me semble quand même une bonne
solution.

J'utilise Activestate Perl 5.8.8, donc j'ai installé le module du
répertoire
http://ppm4.activestate.com/MSWin32-x86/5.8/820/package.xml
par le logiciel "Perl Package Manager" d'Activestate.

Voici un programme, inspiré par l'exemple dans la documentation:
========================= ============
use strict;
use warnings;

use Regexp::Common qw[Email::Address];
use Email::Address;

while (<DATA>) {
my (@found) = /($RE{Email}{Address})/g;
my (@addrs) = map $_->address, Email::Address->parse("@found");
print "X-Addresses: ", join(", ", @addrs), "n";
}

__DATA__
From: "week Steven" To:
========================= ============

Résultat:
========================= ============
X-Addresses:
X-Addresses:
========================= ============

--
Klaus

Publicité
Poster une réponse
Anonyme