getproxyservers scripts

[]=-antr4xx-=[]

Von mir geschrieben, holt die Proxyserver von http://proxy.speedtest.at

#! /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";    
}