Perl用电子邮件发送Perl电子邮件，例如Mail :: VRFY

Question

我正在尝试验证几封电子邮件。 问题是，对于http://verify-email.org/和Mail :: VRFY，我得到了不同的结果，其中1st更接近现实。

是的，我知道检查现有用户是不可靠的，但仍然如此。

我收到的是

 One Advertised SMTP server permanently refused mail

或者，如果我尝试使用Mail :: CheckUser

 No such user

可能是服务器通过IP过滤拒绝了我的请求吗？ 就像我从可疑区域运行脚本一样，被拒绝了吗？

如果是的话，如何克服这个问题……看起来不像带有代理的LWP ：-(

Answer 1

如果没有尝试传递邮件，就没有很好的方法来验证电子邮件地址是否存在。 verify-email.org，Mail :: CheckUser和Mail :: VRFY似乎使用相同的技术，发送MAIL FROM和RCPT TO ，然后在听到响应后但在发送实际邮件之前关闭连接。

在垃圾邮件发送者和邮件服务器之间，发送电子邮件已演变为复杂的措施，反措施，反措施等等。 verify-email.org可能知道如何进行这种舞蹈，其中包括诸如MX和DNS记录的特殊设置之类的事情。 J.RANDOM.COMPUTER.net没有该功能，并且如果您是通过家庭网络进行的操作，那么您可能已经列入黑名单了 ，并不是因为您做错了什么，而是假设。 Mail :: VRFY和Mail :: CheckUser可能不知道看起来像合法的邮件服务器。

Mail :: CheckUser表示“ No such user时，与您并不完全准确。 Mail :: CheckUser :: check_user_on_host（）中代码的峰值显示了原因。

    if($code == 550 or $code == 551 or $code == 553) {
        return _result(CU_UNKNOWN_USER, 'no such user');
    }

这些SMTP代码是 ...

• 550-请求的命令失败，因为用户的邮箱不可用（例如，因为找不到邮箱，或者由于策略原因而拒绝了该命令）。
• 551-收件人不在服务器本地。 然后，服务器提供转发地址以进行尝试。
• 553-由于邮箱名称无效，命令被中止。

Mail :: VRFY会执行相同的操作，但是会执行所有500个代码。

}elsif($rt[-1] =~ /^5\d{2}/){
    # host rejected
    return 7;
}

其中7是“一个广告SMTP服务器永久拒绝邮件”。

同时， Email :: Valid将验证语法并验证域是否存在。

最好的选择是使用预先存在的外部服务，或者完全控制您可以控制的真实邮件服务器，或者完成所有工作来设置真实邮件服务器。