使用正則表達式與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

回答