ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladymyr Samoilenko                  2:463/386      06 Sep 2001  08:47:18
 To : All
 Subject : [q] Net::Ping
 -------------------------------------------------------------------------------- 
 

 
 Имеем такой скрипт:
 
 === Cut ===
 #!/usr/bin/perl
 
 use Net::Ping;
 
 $host = "192.168.0.1";
 $p=Net::Ping->new();
 
 if (!$p->ping($host)){print "Host $host is unreachable\n";exit;}
 if ($p->ping($host)){print "Host $host is alive\n";exit;}
 
 $p->close();
 
 print "End pinging";
 
 === Cut ===
 
 при пинговании недоступных узлов возвращает $p=0, при пинге живых узлов имеем
 такое сообщение в шеле:
 
 === Cut ===
 
 Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16 at
 /usr/lib/perl5/5.6.0/i386-linux/Socket.pm line 311.
 
 === Cut ===
 
 Что изменить, чтобы работало нормально? ОС RH 7.0
 
   С уважением, Владимир Самойленко       e-mail: volodya@synergy.kiev.ua
                                          http://synergy.kiev.ua/
 ---
  * Origin: Когда умирает сила закона - рождается закон силы (2:463/386)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор