如何使用perl在邮件探测中更改ip

Question

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

感谢您的帮助

Answer 1

恕我直言需要简单的Mail::CheckUser补丁。

Mail :: CheckUser使用Net :: SMTP来处理smtp连接。 Net :: SMTP构造函数（new sub）支持你需要的LocalAddr参数但是我现在看不到Mail :: CheckUser的代码将额外的参数传递给New :: SMTP construtor。

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