如何使用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子程序）支持您需要的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