and a little bit messy -LW
|
|
|
|
good chemistry is complicated, and a little bit messy -LW |
|
| PerlMonks |
Re: Email Headerby mischief (Hermit) |
| on Nov 13, 2001 at 19:44 UTC ( [id://125064]=note: print w/replies, xml ) | Need Help?? |
|
Try this to grab the email addresss from $from as $email:
my ($email) = $from =~ /<([^>]+)>/ if $1; Might be an idea to have a look at the Mail::Header module. By the way, and this isn't relevant to your question, but you don't need to quote $1 (eg, $from = "$1"... in your example above.)
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||||||||