Как использовать веб-прокси с Perl WWW :: Mechanize?

Question

Я пытаюсь использовать WWW :: Механизировать с прокси-сервером, но, похоже, я не могу заставить его работать. Поскольку Mechanize подкласс LWP :: UserAgent, я читал о прокси вещь над link text

У меня есть список прокси-серверов, например:

74.87.151.157:8000 
69.171.152.25:3128 
190.253.82.253:8080 
189.11.196.221:3128 
41.234.205.201:8080 

Я не знаю, как использовать их.

Спасибо,

Answer 1

Этот пример устанавливает HTTP-прокси:

my $mech = WWW::Mechanize->new(); 
my $proxy = '74.87.151.157:8000'; 

$mech->proxy('http', "http://$proxy");