perl - 如何在 Perl 的 WWW::Mechanize 中使用 Web 代理？

Question

我正在尝试将 WWW::Mechanize 与代理服务器一起使用，但似乎我无法让它工作。由于 Mechanize 是 LWP::UserAgent 的子类，我一直在阅读有关 链接文本的代理内容

我有一个代理列表，例如：

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