linux - 如何使用 perl 更改邮件探测中的 ip

Question

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

下面给出了我正在使用的代码

 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 子)支持您需要的 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