获取代理地址:
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, $pr
perl 通过代理 访问
最新推荐文章于 2024-08-01 15:28:41 发布
这篇博客介绍了如何使用Perl编程语言通过代理服务器访问网页。首先,它展示了一个获取代理地址的Perl脚本`get.pl`,然后演示了如何设置代理属性来指定代理服务器进行HTTP请求。博客中给出了具体的代码示例,包括设置代理服务器并打印代理信息,以及使用代理访问特定网址的例子。
摘要由CSDN通过智能技术生成