How can I extract the username and hostname/domain from e-mail addresses?

Symuc has asked for the wisdom of the Perl Monks concerning the following question:

I'm working on a mailing list, and I need to do username validation. So far, I have the entire message read into a variable, and I'm using an (admittedly poor) split() to get the "From:" header. I know that RFC822 allows email addresses to be in formats other than the user@domain, such as the following:
   John Doe <jdoe@domain.com>
   -or-
   "'Jane Smith'" <jsmith@otherdomain.com>

My question is this: How can I extract just the username and the hostname, preferably in separate variables? (And possibly, how can I use a regexp instead of the split() to extract the From: field?)

Comment on How can I extract the username and hostname/domain from e-mail addresses?

Replies are listed 'Best First'.
Re: How can I extract the username/domain? by wog (Curate) on Nov 21, 2001 at 06:40 UTC
The Mail::Address and Mail::Header modules can do this task: `use Mail::Header; use Mail::Address; my $header = Mail::Header->new([@lines]); my($from) = Mail::Address->parse($header->get("From")); my($user,$host) = ($from->user(),$from->host());` [download] Edit by tye	[reply] [d/l]
Re: Re: How can I extract the username/domain? by wog (Curate) on Nov 21, 2001 at 06:44 UTC
`my $from = Mail::Address->parse($header->get("From"));` [download] should be `my($from) = Mail::Address->parse($header->get("From"));` [download] (because `Mail::Address->parse` returns an array, and we don't want it's length.)	[reply] [d/l] [select]
Re: How can I extract the username/domain? by fuzzysteve (Beadle) on Nov 21, 2001 at 06:27 UTC
`/<(.+?)@(.+?)>/` [download] $1 should contain the user $2 should contain the domain	[reply] [d/l]
Re^2: How can I extract the username/domain? by vaflinux (Initiate) on Jun 23, 2011 at 10:49 UTC
$1 and $2 doesn't print anything. its ooutpu is blank. Pls provide me the full code.	[reply]
Re^2: How can I extract the username/domain? by vaflinux (Initiate) on Jun 23, 2011 at 11:21 UTC
$1 and $2 not providing any output. it is giving blank output. My code is: $email = "old@oldone.com"; if ($email =~ /(^@+)@(.+)/) { #if ($email =~ /<(.+?)@(.+?)>/) { print "username is $1\n"; print "hostnmae is $2\n"; }	[reply]
Re^3: How can I extract the username/domain? by Anonymous Monk on Jun 23, 2011 at 11:50 UTC
Hi, new questions go in Seekers Of Perl Wisdom because Symuc, who originally asked the question, hasn't been here in 9 years. fuzzysteve, whom you asked a question, hasn't been here in 2 years. Code/data goes in `<code> between code tags </code>` Welcome, see How do I post a question effectively?, Where should I post X? The regex which is not working for you, contains angle brackets, because in the sample data , the email was surrounded by angle brackets. You can use YAPE::Regex::Explain to get an explanation of regex For a really real email regex :) use Email::Find	[reply]
Re: How can I extract the username and hostname/domain from e-mail addresses? by TomK32 (Monk) on Nov 22, 2001 at 00:54 UTC
Don't forget to s/SPAM// due many started to add that against spammers	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.