How to extract email address from a string using perl?

Question

How to extract emails address from a string using perl and to put the email addres into a variable? My strings looks like

Ben Tailor <[email protected]>
[email protected], [email protected], Ben Tailor <[email protected]>

I tryed this

$string ="Ben Tailor <[email protected]>";
$string =~ /\b([^\s]+@[^\s]+)\b/g ;
print $string;

And the Out put xas:

Ben Tailor <[email protected]>

Someone have an Idea?

Fixed using

Email::Valid->address($string);

Thx

It would output the same as the input string because all you did was perform a regex match against it then output the string again. You didn't use the captured part $1 or substitue replace s///g; — dalton
– dalton, Commented Jul 18, 2010 at 16:44

dalton · Accepted Answer · 2010-07-18 16:37:18Z

8

Take a look at Email::Address or Email::AddressParser from cpan

 my @addrs = Email::Address->parse(
    q[me@local, Tony <me@local>, "Tony" <me@local>]
  );

This returns a list of Email::Address objects it finds in the input string.

answered Jul 18, 2010 at 16:37

dalton

3,6861 gold badge27 silver badges25 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Randal Schwartz · Accepted Answer · 2014-04-06 05:21:55Z

2

Start with https://metacpan.org/pod/Email::Valid. It seems to work pretty well.

Randal Schwartz

44.8k4 gold badges51 silver badges83 bronze badges

answered Jul 18, 2010 at 16:37

Marius Kjeldahl

6,8243 gold badges37 silver badges37 bronze badges