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?
[EMAIL PROTECTED]:~/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(); [EMAIL PROTECTED]:~/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: [EMAIL PROTECTED]:~/Programacion/Tenaria$ Saludos y gracias: Juan Carlos Muro