0

我正在创建一个用于检查邮件 ID 收件箱是否存在的脚本(邮件探测),我为此使用 Mail::CheckUser 模块。但问题是当我连续运行脚本时,可能有机会阻止我的 ip,所以我想同时使用更改我的 ip。我有附加 10 个 ips 的服务器,我想随机使用这个 ips,请给我任何想法

我正在使用的代码如下

 use Mail::CheckUser;
 use Data::Dumper;

 my $res = Mail::CheckUser::check_email('xxxxx@example.com');
 print $res."\n\n\n";

 my $res1 = Mail::CheckUser::last_check();

 print Dumper($res1)."\n\n";

谢谢你的帮助

4

1 回答 1

0

恕我直言,它需要简单的Mail::CheckUser.

Mail::CheckUser 使用 Net::SMTP 处理 smtp 连接。Net::SMTP 构造函数(new子)支持您需要的 LocalAddr 参数我看不出在 Mail::CheckUser 的当前代码中无法将额外参数传递给 New::SMTP 构造函数。

http://cpansearch.perl.org/src/ILYAM/Mail-CheckUser-1.21/CheckUser.pm
http://search.cpan.org/~shay/libnet-1.23/Net/SMTP.pm

于 2013-10-30T07:30:19.213 回答