|
|
|
| Think about Loose Coupling | |
| PerlMonks |
Re: Email Headerby mischief (Hermit) |
| on Nov 13, 2001 at 14:44 UTC ( [id://125064]=note: print w/replies, xml ) | Need Help?? |
This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.
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
|
|
||||||||||||||||||||||||||||||