代理服务器用着用着断了，突然被墙了，这种情况确实让人心烦。但是也没有办法，毕竟如今的打压力度比较严厉，能怎么办呢?还不是只能继续找可用代理服务器跟代理IP。下面这个教程教大家获取可用的代理服务器地址，让大家可以自在上网。

　　详细代码如下：

　　#本程序实现

　　#1.从代理网站获取代理服务器列表

　　#2.逐个检测代理服务器是否可用

　　##########################################

　　package yifangyou;

　　use LWP::Simple;

　　use LWP::UserAgent;

　　use strict;

　　use warnings;

　　use LWP::Simple qw( $ua get );

　　#代理服务器ip和端口存放的地方

　　my @proxys=();

　　#已经检测完的代理服务器ip和端口存放的地方

　　my @checkedProxys=();

　　#已经检测完的代理服务器ip和端口存放的地方,我用的百度首页的图标

　　my $stdUrl="http://www.baidu.com/img/baidu_sylogo1.gif";

　　#代理服务器列表页面的url，可以加多个页面

　　my @urls=("http://www.5uproxy.net/http_fast.html");#,"http://www.5uproxy.net/http_anonymous.html","http://www.5uproxy.net/http_non_anonymous.html");

　　$ua->timeout(3); # 3秒超时

　　$ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"); # 模拟xp ie7浏览器

　　#获取待验证的代理服务器列表

　　foreach my $url(@urls){

　　getProxyAddr($url);

　　}

　　#验证代理服务器列表

　　foreach my $proxyAddr(@proxys){

　　checkProxyAddr($stdUrl,$proxyAddr);

　　}

　　#输出所有结果

　　print join(",",@checkedProxys)."\n";

　　#获取待验证的代理服务器列表

　　sub getProxyAddr

　　{

　　my $url=shift;

　　my $document = get($url);

　　return print "cannot get $url\n" unless defined $document;

　　my @lines=split("\n",$document);

　　my $i=0;

　　my @matches;

　　for($i=0;$i<@lines;$i++){

　　#获取ip

　　if(@matches=$lines[$i]=~/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/i) {

　　my $ip=$matches[0];

　　#获取端口

　　if(@matches=$lines[$i+1]=~/<td.*>(\d{1,6})<\/td>/i) {

　　my $port=$matches[0];

　　push(@proxys,"$ip:$port");

　　}

　　}

　　}

　　}

　　#验证代理服务器列表

　　sub checkProxyAddr{

　　my $url=shift;

　　my $proxyAddr=shift;

　　$ua->proxy(['http'], "http://$proxyAddr"); # 设http代理服务器

　　my @headcontent=head($url); #取head比较快

　　if(scalar(@headcontent)==0){

　　# print "Could not get head from $proxyAddr\n";

　　return -1;

　　}else{

　　print "$proxyAddr\n";

　　push(@checkedProxys,"$proxyAddr");

　　return 0;

　　}

　　# my $ua = new LWP::UserAgent;

　　# $ua->timeout(3); # 3秒超时

　　# $ua->proxy(['http'], "http://$proxyAddr"); # 设http代理服务器

　　# $ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"); # 模拟xp ie7浏览器

　　# my $req = new HTTP::Request->new(GET => $url);

　　# my $res = $ua->request($req);

　　# if ($res->is_success){

　　# print "$proxyAddr\n";

　　# push(@checkedProxys,"$proxyAddr");

　　# return 0;

　　# }else {

　　# print "Could not get head from $proxyAddr\n";

　　# return -1;

　　# }

　　}

　　这样我们就算之前在用的代理服务器挂了，通过这个方法，我们也能够找到替补，不用愁了。