perl 通过代理访问

最新推荐文章于 2017-06-12 11:30:39 发布

scan724

最新推荐文章于 2017-06-12 11:30:39 发布

阅读量6.7k

点赞数 1

分类专栏： perl LWP

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/47041595

版权

perl LWP 专栏收录该内容

111 篇文章 33 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了如何使用Perl编程语言通过代理服务器访问网页。首先，它展示了一个获取代理地址的Perl脚本`get.pl`，然后演示了如何设置代理属性来指定代理服务器进行HTTP请求。博客中给出了具体的代码示例，包括设置代理服务器并打印代理信息，以及使用代理访问特定网址的例子。

摘要由CSDN通过智能技术生成

获取代理地址:
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

了解本专栏