perl 通过代理 访问

获取代理地址:
49.94.146.182:3128[root@dr-mysql01 test]# cat get.pl 
use  LWP::UserAgent;
 
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");

my $response = $ua->get('http://www.kuaidaili.com/api/getproxy?orderid=963771205365827&num=9999');


if ($response->is_success) {
 print $response->decoded_content;  # or whatever
}
else {
 die $response->status_line;
}


[root@dr-mysql01 test]# perl get.pl | more
117.177.243.111:8080
218.92.227.168:34034
223.85.83.47:8123
117.177.243.38:83
207.5.112.114:8080
111.12.117.68:8082
117.177.243.56:86
117.177.243.39:8081
204.27.58.202:811


代理服务器使用:
3.代理属性
$ua->proxy(\@schemes, $proxy_url) 
$ua->proxy($scheme, $proxy_url) 
如 
 $ua->proxy(['http', 'ftp'], 'http://proxy.sn.no:8001/');
 $ua->proxy('gopher', 'http://proxy.sn.no:8001/');
指明通过制定的代理服务器，按照指定的协议方法访问。