LWP如何用socks代理？

d4rkl0rd

看例子貌似只有http/ftp,像socks如何设置呢？

搞定！！

use strict;
use LWP::UserAgent;
use Data::Dump qw(dump pp);
my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
# for socks5, use socks like so:
$ua->proxy([qw(http https)] => 'socks://10.111.177.40:123');
my $res = $ua->get("http://xxxxx");
if ($res->is_success) {
    print $res->content;  # or whatever
}
else {
    die $res->status_line;
}