1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
NAME
Regexp::Common::Email::Address - Returns a pattern for Email Addresses
SYNOPSIS
use Regexp::Common qw[Email::Address];
use Email::Address;
while (<>) {
my (@found) = /($RE{Email}{Address})/g;
my (@addrs) = map $_->address,
Email::Address->parse("@found");
print "X-Addresses: ",
join(", ", @addrs),
"\n";
}
DESCRIPTION
$RE{Email}{Address}
Provides a regex to match email addresses as defined by RFC 2822. Under
"{-keep}", the entire match is kept as $1. If you want to parse that
further then pass it to "Email::Address->parse()". Don't worry, it's
fast.
SEE ALSO
Email::Address, Regexp::Common, perl.
AUTHOR
Casey West, <casey@geeknest.com>.
COPYRIGHT
Copyright (c) 2005 Casey West. All rights reserved.
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
|
