它有效嗎?它會起作用嗎? 如果您在Perl腳本和程序的任何地方收集或使用電子郵件地址,則可能收集許多不起作用的地址。 一個人可能缺少域名中的一個字母,另一個可能有太多不允許的字符。
無論其無效原因如何,您都希望找到破損的地址 - 提醒用戶重新輸入信息,或避免發送確定無法發送的電子郵件。
在Perl中,當然可以編寫複雜的正則表達式; 或者你轉向一個已經有內置的模塊,並且可以檢查域名。
用Perl驗證電子郵件地址
在Perl腳本或程序中檢查電子郵件地址的格式和有效性:
- 如果您有用戶在Web表單中輸入電子郵件地址,請將電子郵件驗證生成到HTML代碼中 。
- 使用Email :: Valid CPAN Perl模塊中的Email :: Valid-> address(''); 有關詳細信息,安裝和示例,請參閱下文
電子郵件::有效的電子郵件地址驗證示例
假設$ 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模塊來驗證電子郵件地址的正確性:
- 打開命令提示符。
- 例如,在Mac和Linux下,打開終端應用程序。
- 鍵入sudo perl -MCPAN -e'install Email :: Valid'(Mac和Linux)或perl -MCPAN -e'安裝Email :: Valid'。
- 按Enter鍵 。
- 輸入超級用戶密碼,並在出現提示時按Enter鍵 。
- 問你想讓我盡可能自動配置嗎? 除非你知道,否則選擇“是”
- 問是否可以嘗試連接到互聯網? ,輸入“是”。