fertig:
Code:
#! /usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
sub get_proxys {
my ($ua, $req, $res, @ret);
my $url = $_[0];
$ua = new LWP::UserAgent();
$ua->agent("Mozilla Firefox");
$req = new HTTP::Request(GET => $url);
$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})/) {
push @ret, $1;
}
}
}
return @ret;
}
my @proxys;
@proxys = get_proxys("http://proxy.speedtest.at/proxybyPerformance.php?offset=0");
push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyCountry.php?offset=0"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxybyActuality.php?offset=0"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxyOnlyTransparent.php?offset=0"));
push(@proxys, get_proxys("http://proxy.speedtest.at/proxyOnlyAnonymous.php?offset=0"));
foreach (@proxys) {
print $_."\n";
}