使用Mail :: CheckUser检查电子邮件ID时出错有效

时间:2013-10-30 15:30:54

标签: linux perl email smtp cpan

我正在创建一个用于检查邮件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";

提前致谢

1 个答案:

答案 0 :(得分:0)

Mail :: Checker似乎不适合Yahoo

似乎无法在不发送测试消息的情况下测试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)