Posted By: rosik (rosik) on 'CZscripts'
Title:     Modul Net::Ping v Perlu
Date:      Tue Jan 18 12:36:52 2000

Zdar.

Nevite nekdo, proc nefunguje tenhle jednoduchej programek ?

#!/usr/bin/perl
use Net::Ping;
$host = "localhost"; # Nebo adresa jineho pocitace
$p = Net::Ping->new(); 
print "$host is alive.n" if $p->ping($host);
$p->close();

Hlasi to chybu:
Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16 at
/usr/lib/perl5/5.00503/i386-linux/Socket.pm line 295.

Rosik