in reply to Re^2: extract email addresses
in thread extract email addresses
$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
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: extract email addresses
by merlyn (Sage) on Feb 19, 2005 at 01:56 UTC | |
|