in reply to Re: extract email addresses
in thread extract email addresses

all email addresses will be formatted like so.
<smtp:"emailaddress">
could be something.something.something@something.something.something.com
but it wil always be in the brackets with smtp: in it.

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;
    But i still prefer my Email::Find solution; then you will be safe! <edit>miss-spelling fixed</edit>
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


      A reply falls below the community's threshold of quality. You may see it by logging in.