如何用Perl驗證電子郵件地址

它有效嗎?它會起作用嗎? 如果您在Perl腳本和程序的任何地方收集或使用電子郵件地址,則可能收集許多不起作用的地址。 一個人可能缺少域名中的一個字母,另一個可能有太多不允許的字符。

無論其無效原因如何,您都希望找到破損的地址 - 提醒用戶重新輸入信息,或避免發送確定無法發送的電子郵件。

在Perl中,當然可以編寫複雜的正則表達式; 或者你轉向一個已經有內置的模塊,並且可以檢查域名。

用Perl驗證電子郵件地址

在Perl腳本或程序中檢查電子郵件地址的格式和有效性:

電子郵件::有效的電子郵件地址驗證示例

假設$ email_address包含要檢查的地址,您可以使用以下方法檢查其有效性:

#!/ usr / bin / perl使用Email :: Valid $ email_address ='me @@ example.com'; 如果(Email :: Valid-> address($ email_address)){#電子郵件地址有效} else {#電子郵件地址無效}

您也可以通過電子郵件::有效檢查有效的頂級域名(確保“.com”,“.net”,“.cn”或其他有效域名位於電子郵件地址的最後)。 確保Net :: Domain :: TLD模塊已安裝。

#!/ usr / bin / perl使用Email :: Valid $ email_address ='me @@ example.com'; 如果(Email :: Valid-> address(-address => $ email_address,-tldcheck => 1)){#電子郵件地址有效} else {#電子郵件地址無效}

安裝Email :: Valid Perl模塊

為了讓您的Perl安裝配備Email :: Valid模塊來驗證電子郵件地址的正確性: