Extractor de Proxy By OzX 0.1

Obtiene una Lista de Proxy que se actualizan cada 1 Hora, los guarda en un archivo que se creara en la misma ruta de ejecucion del script llamado proxy.txt.
Optimize al maximo el codigo, con llamado de funciones.
Version 0.1 Sacado del Labs de NB.

Citar

#Thanx C0de.
use LWP::UserAgent;
use HTTP::Request;
syswrite STDOUT, "#######################################\n";
syswrite STDOUT, "### Extractor Proxy 0.1 By OzX ###\n";
syswrite STDOUT, "### New-Bytes [Labs] ###\n";
syswrite STDOUT, "#######################################\n";
syswrite STDOUT, "

Extract .... [ ]\n";

$i=1;
sub get ($){
$url= shift;
$browser = LWP::UserAgent->new();
$browser->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14");
$req = HTTP::Request->new(GET => $url);
$response = $browser->request($req);
$content = $response->content();
@code = split("\n",$content);

return @code;
}

sub proxy($){
my $url= shift;
get($url);

######################################craw proxy ########################################3
foreach $cod ( @code){
if ($cod=~m/(>\d{2,3}\.\d{2,3}\.\d{2,3}\.\d{2,3}:\d{2,3})/){
@pm = split("<\/a><\/li>",$cod);
foreach $p ( @pm){
$p=~s/(<\/ol>)//;
$p=~s/(<li>.*">)//;
push ( @proxy,$p."\n");
$i++;
}
}
}
pop ( @proxy);
return @proxy;
}
###########################################################################################

@urls = qw(http://www.cybersyndrome.net/plr4.html
http://www.cybersyndrome.net/pla4.html
http://www.cybersyndrome.net/pld4.html
http://www.cybersyndrome.net/pls4.html
);

foreach $u ( @urls){
proxy($u);
}

open (L,">proxy.txt"); print L @proxy; close (L);

syswrite STDOUT, "

Extract .... [OK]\n";

syswrite STDOUT, "

Cantidad de Proxy .... [$i]\n";

syswrite STDOUT, "

Lista Creada proxy.txt .... [OK]\n";

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Julio 24, 2008, 06:36:46 Boton Buscar