我正在创建一个用于检查邮件ID收件箱是否存在的脚本(邮件探测),我正在使用Mail :: CheckUser模块。但是当我执行带有邮件ID的代码时,例如“somthing@yahooo.com”它显示邮件ID存在,但它实际上不存在。 你能为这个
建议任何解决方案吗?我使用的代码如下所示
use Mail::CheckUser;
use Data::Dumper;
my $res =Mail::CheckUser::check_email('something_something@yahoo.com');
print $res."\n\n\n";
my $res1 = Mail::CheckUser::last_check();
print Dumper($res1)."\n\n";
提前致谢
答案 0 :(得分:0)
似乎无法在不发送测试消息的情况下测试yahoo邮箱的存在。雅虎似乎拒绝向现有用户发送消息,以回复SMTP会话中的“最后一个点”。
我尝试使用以下结果向邮件发送到非现有(长随机)邮箱(退回邮件):
<d5b980c9018f82c94cefee51193f8a61@yahoo.com>: host
mta5.am0.yahoodns.net[98.138.112.32] said: 554 delivery error: dd This user
doesn't have a yahoo.com account
(d5b980c9018f82c94cefee51193f8a61@yahoo.com) [0] -
mta1516.mail.ne1.yahoo.com (in reply to end of DATA command)