Un Script para verificar los Proxy que estan en Proxylist.new-bytes.net
Es algo lento, pero lo bueno que te verifica toda la Lista y te la Guarda en una Nueva.
A mi me funciona para lo que quiero hacer, pero si alguien quiere mejorar el tiempo de respuesta , si esta bueno o malo los proxy adelante... En la version 0.1 Provare on Socket.
use LWP::UserAgent;
use HTTP::Request;
use LWP::Simple;
system ("cls");
syswrite STDOUT,"
mirror("
http://proxylist.new-bytes.net/list.txt", "proxy.txt");
open(PROXY,"proxy.txt");
@proxy=<PROXY>;
close (PROXY);
$url="
http://www.google.es";
$cantidad=1;
foreach $i ( @proxy){
open (CODE,">>PROXY_LIST.TXT");
chomp ($i);
$pr = LWP::UserAgent->new;
$pr->agent(" Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14");
$pr->max_size(10);
$pr->timeout(20);
$pr->proxy(["http"], "http://".$i."/");
$req = HTTP::Request->new(GET => $url);
$response = $pr->request($req);
if ($response->is_success){
$cantidad++;
syswrite STDOUT, "[OK]\t$i\n";
print CODE "$i\n";
}
}
close (CODE);
Autor