0

我正在创建一个用于检查邮件 ID 收件箱是否存在的脚本（邮件探测），我为此使用 Mail::CheckUser 模块。但是当我使用像“somthing@yahooo.com”这样的邮件 ID 执行代码时，它会显示邮件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";

提前致谢

4

1 回答 1

0

Mail::Checker 似乎不适合雅虎

如果不发送测试消息，似乎无法测试 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)
于 2013-10-30T19:14:52.417 回答