Re^2: extract email addresses

Replies are listed 'Best First'.
Re^3: extract email addresses by esskar (Deacon) on Feb 19, 2005 at 01:24 UTC
`my $text = '<smtp:something.something.something@something.something.so +mething.com>'; my @addresses = $text =~ m!<smtp:(.@.)>!g; print "$_\n" foreach @addresses;` [download] But i still prefer my Email::Find solution; then you will be safe! <edit>miss-spelling fixed</edit>	[reply] [d/l]
Re^3: extract email addresses by sh1tn (Priest) on Feb 19, 2005 at 01:24 UTC
It does not matter - this regular expression takes care: `$mail_reg = qr{\W(\.(?:\w+\|-)+(?:\.\w+\|-)\@\.(?:\w+\|-)+(?:\.\w+)+ +)\W*}; $mail_1 = '<smtp:"email.address@something.something.something.com"> +'; $mail_2 = '<smtp:emailaddress@something.something.something.com>'; $mail_1 =~ m#$mail_reg# and print $1, $/; $mail_2 =~ m#$mail_reg# and print $1, $/; # which outputs: # email.address@something.something.something.com # emailaddress@something.something.something.com` [download]	[reply] [d/l]
Re^4: extract email addresses by merlyn (Sage) on Feb 19, 2005 at 01:56 UTC
Same comment as Re^2: extract email addresses. I'm repeating this only because you posted after I posted, so you aren't reading the rest of the thread yet. {sigh} -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.