如何使用perl从字符串中提取电子邮件地址？

Question

如何使用Perl从字符串中提取电子邮件地址并将其放入变量中？ 我的字符串如下：

Ben Tailor <[e-mail]>
[e-mail], [e-mail], Ben Tailor <[e-mail]>

我尝试过这个

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

输出结果为：

Ben Tailor <[e-mail]>

有人有想法吗？

使用以下方法进行修复

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

Thx

- chahedous

---

它会输出与输入字符串相同的内容，因为你只是对其执行了一个正则表达式匹配，然后再次输出该字符串。您没有使用捕获部分$1或进行替换操作s///g; - dalton

Answer 1

请查看cpan中的Email::Address或Email::AddressParser

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

这将返回在输入字符串中找到的Email::Address对象列表。

- dalton

Answer 2

从https://metacpan.org/pod/Email::Valid开始。它似乎工作得很好。

- Marius Kjeldahl