Hola señores,
Soy nuevo en el foro y necesito de un poco de su ayuda. Les cuento: necesito realizar un sistema el cual me permita comparar la hora de un servidor central versus la hora de un servidor ntp externo, en este caso (http://www.horaoficial.cl/). La idea es comparar estas dos horas y ver el margen que tiene una de otra.
El problema que tengo es que no sé y no he podido encontrar alguna forma de cómo realizar la consulta para la hora en un servidor externo con IP pública.
¿¿Cómo puedo consultar la hora a un servidor externo con Perl??
Saludos.
Gracias.
-
- Publicidad
Obtener hora exacta desde servidor externo con Perl
4 mensajes
• Página 1 de 1
Obtener hora exacta desde servidor externo con Perl
por _hugo_ » 2011-06-22 09:40 @444
- _hugo_
- Perlero nuevo
- Mensajes: 1
- Registrado: 2011-06-22 09:26 @434
Publicidad
Re: Obtener hora exacta desde servidor externo con Perl
por explorer » 2011-06-22 10:04 @461
Bienvenido a los foros de Perl en español, _hugo_.
En CPAN existe el módulo Net::NTPTime, con el que puedes obtener el tiempo desde el servidor externo.
En CPAN existe el módulo Net::NTPTime, con el que puedes obtener el tiempo desde el servidor externo.
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
Re: Obtener hora exacta desde servidor externo con Perl
por animal collective » 2011-06-22 14:00 @625
explorer, estoy realizando algo similar a lo que solicita _hugo_, pero me arroja el siguiente error:
Adjunto el código
De antemano, muchas gracias.
Saludos
- Argument "SOCK_DGRAM" isn't numeric in socket at C:/Perl/site/lib/Net/NTPTime.pm
- line 13.
- Argument "PF_INET" isn't numeric in socket at C:/Perl/site/lib/Net/NTPTime.pm li
- ne 13.
- Undefined subroutine &Net::NTPTime::inet_aton called at C:/Perl/site/lib/Net/NTP
- Time.pm line 14.
Adjunto el código
Using perl Syntax Highlighting
- use Net::NTPTime;
- my $ntp_time = get_ntp_time;
- $ntp_time = get_ntp_time('ntp.shoa.cl');
- print ("ntp time, $ntp_time \n");
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
De antemano, muchas gracias.
Saludos
- animal collective
- Perlero nuevo
- Mensajes: 39
- Registrado: 2010-10-17 17:53 @786
- Ubicación: Chile
Re: Obtener hora exacta desde servidor externo con Perl
por explorer » 2011-06-22 14:45 @656
Parece que hay un error en el código del módulo.
Edita el fichero NTPTime.pm, y cambia
require Socket;
por
use Socket;
Y ya funciona.
Edita el fichero NTPTime.pm, y cambia
require Socket;
por
use Socket;
Y ya funciona.
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Net::NTPTime;
- my $ntp_time;
- $ntp_time = get_ntp_time('ntp.shoa.cl');
- print "[$ntp_time]\n";
- $ntp_time = get_ntp_time('pool.ntp.org');
- print "[$ntp_time]\n";
- __END__
- [3517760718]
- [3517760718]
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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
4 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado