• Publicidad

No funciona Timeout en Sockets

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

No funciona Timeout en Sockets

Notapor OzX » 2008-07-15 19:02 @834

Hola

Bueno, intentando aprender más sobre Perl, intenté hacer un "Proxy Checker" más rápido que los que hay en Internet.

¡Y qué mejor que ocupar Socket! LWP/request, Agent, me parecen buenos, pero no sé si será una noción personal pero se demoran más que los Sockets.

Bueno, el código en sí funciona perfecto, cuando un proxy funciona, éste no se demora más de 2 o 3 segundos en informarte que el proxy funciona, perooo...

Cuando los proxy están down, o malos, éste se me demora mucho en informarme, aprox. unos 15 seg., intenté implementar "timeout => 5", para que si se demora más de 5 segundos, este me informara el error de inmediato, sin tener que esperar los 15 que se demoraba comúnmente.

Pero no me funciona, sigue demorándome 15 seg. en los proxy que están Malos, o no vivos.

¿Alguna idea?

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use IO::Socket;

$proxy = $ARGV[0];
$host="";
$port="";
($host, $port) = split(/(:\d*)/, $proxy);
$port=~s/://;

print "Host : $host\n";
print "Port : $port\n";
$remote = IO::Socket::INET->new(
    Proto    => "tcp", #Protocolo a utilizar (tcp, udp).
    PeerAddr => $host,
    PeerPort => $port,
#   Reuse=>1,   Permite reutilizar el socket.
    Timeout  =>5 #Tiempo de espera para las operaciones.
) or die "Could not create socket: $!\n" unless $remote;
 
close $remote;
print "[+]$proxy Alive";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
OzX
Perlero nuevo
Perlero nuevo
 
Mensajes: 8
Registrado: 2008-07-14 18:15 @802

Publicidad

Notapor explorer » 2008-07-16 17:58 @790

Yo te recomiendo que eches un vistazo al código del módulo WWW::ProxyChecker. Aunque no usa Sockets directamente, si no LWP::UserAgent (que, al final, los usará).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 1 invitado

cron