Hola. Disculpen. Necesito ayuda con esto. Estoy programando un script para conectarme a un sitio pero el problema es que a veces no está activo el servidor y me preguntaba cómo puedo hacer para que si no conectara ahí vuelva a intentarlo otra vez y así hasta que conecte.
-
- Publicidad
Problema Sockets
3 mensajes
• Página 1 de 1
Problema Sockets
por Azrack » 2007-09-21 20:01 @876
- Azrack
- Perlero nuevo
- Mensajes: 19
- Registrado: 2007-04-14 13:42 @613
Publicidad
por explorer » 2007-09-21 21:10 @923
Quizás... metiendo esas líneas dentro de un bucle, hasta que se cumpla que se ha creado la conexión. Y con una instrucción sleep parar evitar que el proceso consuma todos los recursos de la máquina.
Seguro que hay otras formas.
Seguro que hay otras formas.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por creating021 » 2007-09-22 09:52 @452
Usando Socket.
Primero se define el protocolo, luego se crea el Socket (tipo AF_INET, SOCK_STREAM) y luego se hace un bucle, usando connect y sleep, y con un par de sub.
Aunque esto depende de cómo quieras trabajar los errores.
Ahora, ¿por qué usar Socket y no IO::Socket?
IO::Socket es muy cómodo para ciertos hacks y programas, pero puede ser maluco para trabajar con este tipo de programas (mirar si tienes red, si X servidor está hábil o no).
Otra solución es usar Net::Ping.
Primero se define el protocolo, luego se crea el Socket (tipo AF_INET, SOCK_STREAM) y luego se hace un bucle, usando connect y sleep, y con un par de sub.
Using perl Syntax Highlighting
use Socket;
my $proto = getrpotobyname('tcp');
socket(Socket, AF_INET, SOCK_STREAM, $proto);
sub Check {
my $sitio = shift;
my $add = inet_aton($sitio);
my $sin = sockaddr_in($puerto, $add);
if(connect(Socket, $sin)){
Haces Algo...
}
sleep 1; #O el tiempo necesario
}
my $proto = getrpotobyname('tcp');
socket(Socket, AF_INET, SOCK_STREAM, $proto);
sub Check {
my $sitio = shift;
my $add = inet_aton($sitio);
my $sin = sockaddr_in($puerto, $add);
if(connect(Socket, $sin)){
Haces Algo...
}
sleep 1; #O el tiempo necesario
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Aunque esto depende de cómo quieras trabajar los errores.
Ahora, ¿por qué usar Socket y no IO::Socket?
IO::Socket es muy cómodo para ciertos hacks y programas, pero puede ser maluco para trabajar con este tipo de programas (mirar si tienes red, si X servidor está hábil o no).
Otra solución es usar Net::Ping.
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
3 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados