Von mir geschrieben, holt die Proxyserver von http://proxy.speedtest.at
Code:#! /usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
sub get_proxys {
my ($ua, $req, $res, @ret);
$ua = new LWP::UserAgent();
$ua->agent("Mozilla Firefox");
$req = new HTTP::Request(GET => "http://proxy.speedtest.at/proxybyActuality.php?offset=0");
$req->content_type('application/x-www-form-urlencoded');
$res = $ua->request($req);
if($res->is_success) {
$_ = $res->content();
my @results = split "<b>";
my $i;
foreach $i (@results) {
if($i =~ /([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,5})/) {
#print $1."\n";
push @ret, $1;
}
}
}
return @ret;
}
my @proxys;
@proxys = get_proxys();
foreach (@proxys) {
print $_."\n";
}