使用正则表达式与Perl提取电子邮件

-1

我是Perl的新手，我试图从字符串中提取电子邮件 “Tom Smith”<[email protected]> 问题是模块Email :: Address未安装，我也没有有权安装它。有什么方法可以使用正则表达式提取电子邮件。使用正则表达式与Perl提取电子邮件

其中有成千上万个：https：//www.google.com/搜索？q =电子邮件+正则表达式 – kirilloid 2012-03-29 18:07:23

'/^.* <([^>]）> /'，假设地址总是在'<>' – 2012-03-29 18:07:24

@kirilloid我认为你应该回答这个问题，而不是只给一个谷歌搜索链接.. – 2012-03-29 18:18:52

您可以使用/<(.*)>/会抢里面<>括号

2012-03-29 18:23:29

这有助于打印$ val =〜/^.* <(.*)>。* /; – 2012-03-29 18:46:10

你也可以这样做：'if（$ val =〜m /^.* <(.*)>。* /）{print“电子邮件是$ 1。”; }' – 2012-03-29 18:47:51

有没有必要有一个。*锚定到字符串的开始。也没有必要有一个尾随。*。此外，捕获的*也将匹配>字符。 – 2012-03-29 20:38:52

my $from_address = q{"Tom Smith" <[email protected]>}; 
my ($email) = $from_address =~ m/<([^>]+)>/; 
print "$email\n";

文本这将抓住所有内容的角度进行括号中1个或多个非>字符的第一个字符串。

N.B.这不验证电子邮件地址是否正确。如果你想确保你从<格式提取的内容是有效的，你应该看看https://metacpan.org/source/RJBS/Email-Address-1.895/lib/Email/Address.pm

2012-03-29 20:10:03

回答