Як я можу змінити IP в поштовому зондуванні за допомогою perl - linux, perl, email, smtp, cpan

Я створюю сценарій для перевірки вхідних поштових ідентифікаторівіснує чи ні (зондування пошти), я використовую модуль Mail :: CheckUser для цього. Але проблема полягає в тому, що коли я постійно запускаю скрипт, може виникнути шанс заблокувати ip, тому я хотів би використати змінити ip одночасно . У мене є сервер з додаванням 10 ips, я хотів би використовувати цей ips випадковим чином, будь ласка, дайте мені будь-яку ідею

код, який я використовую, наведений нижче

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

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

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

print Dumper($res1)."nn";

дякую за будь-яку допомогу

Відповіді:

IMHO Це вимагає простого виправлення Mail::CheckUser.

Mail :: CheckUser використовує Net :: SMTP для обробки smtp-з'єднань. Net :: SMTP конструктор (new під) підтримує необхідний вам параметр LocalAddr БЕЗ Я не бачу способу в теперішньому коді пошти :: CheckUser передавати додаткові параметри Новому :: Конструктору SMTP.

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