Net:Ping da problemas
Hola. Tengo un problema al ejecutar un script Perl. Me da el error que
podemos ver abajo. Hace unos días no me ocurría. De repente empezó a
fallar en dos máquinas que tengo con Debian. ¿Puede ser algo relacionado
con las versiones?
jcmuro@lennon:~/Programacion/Tenaria$ cat pru.pl
#!/usr/bin/perl
use Net::Ping;
my $host;
print "\n*Hostname o IP?: ";
$host=<STDIN>;
chop($host);
print "\nComprobando $host:";
#$p = Net::Ping->new($> ? 'udp' : 'icmp',$TIMEOUT);
$p = Net::Ping->new($> ? 'udp' : 'icmp');
if ($p->ping($host)) { print " VIVO!\n"; }
else { print " MUETO!\n"; }
$p->close();
jcmuro@lennon:~/Programacion/Tenaria$ ./pru.pl
*Hostname o IP?: 127.0.0.1
Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16
at /usr/lib/perl5/5.005/i386-linux/Socket.pm line 295, <STDIN> chunk 1.
Comprobando 127.0.0.1:
jcmuro@lennon:~/Programacion/Tenaria$
Saludos y gracias:
Juan Carlos Muro
Reply to: