如何用Perl验证电子邮件地址

它有效吗？它会起作用吗？ 如果您在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键 。
  • 问你想让我尽可能自动配置吗？ 除非你知道，否则选择“是”
  • 问是否可以尝试连接到互联网？ ，输入“是”。