如何使用perl从字符串中提取电子邮件地址？ [英] How to extract email address from a string using perl?

问题描述

如何使用perl从字符串中提取电子邮件地址并将电子邮件地址放入变量中？
我的字符串看起来像

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 <[e-mail]>
[e-mail], [e-mail], Ben Tailor <[e-mail]>

我尝试了这个

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

而且放出xas：

Ben Tailor <[e-mail]>

有人有一个想法？

使用

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

Thx

推荐答案

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

这篇关于如何使用perl从字符串中提取电子邮件地址？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！