Re^2: How can I extract the username/domain?

$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"; }

Comment on Re^2: How can I extract the username/domain?

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

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]