Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Klaus
On Jun 1, 11:55 am, Mag wrote:
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: ========================= ============
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
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" <vdizujtct@cordacohomes.net>
To: marie@mondomaine.fr
========================= ============
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: ========================= ============