어떻게 perl을 사용하여 메일 검사에서 ip를 바꿀 수 있습니까?

Question

mail id받은 편지함이 있는지 검사하기위한 스크립트를 작성하고 있습니다 (Mail Probing). Mail :: CheckUser module for this.but를 사용하고 있는데 문제는 내가 계속 실행할 때입니다. 스크립트, 내 IP를 차단할 기회가있을 수 있으므로 동시에 내 ip를 변경하고 싶습니다. 나는이 무작위로 IP를 사용하고 싶습니다, 10 개 IP를 서버에 연결이 나에게 내가 사용하고

코드가

Answer 1

이럴 그것은 어떤 도움을

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"; 

덕분에 아래에 주어진 어떤 생각을 적어주세요 Mail::CheckUser의 간단한 패치가 필요합니다.

Mail :: CheckUser는 Net :: SMTP를 사용하여 smtp 연결을 처리합니다. Net :: SMTP 생성자 (new sub)가 필요한 LocalAddr 매개 변수를 지원합니다. BUT 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