|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Vladymyr Samoilenko 2:463/386 03 Sep 2001 22:20:10
To : All
Subject : [q] Net::Ping
--------------------------------------------------------------------------------
Имееv такой скрипт:
=== 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 ===
Если адрес не пингуется всё пучком, если пингуется вылазит такая бага в шеле:
=== 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, перл его же v. 5.6.0-9
---
* Origin: Когда умирает сила закона - рождается закон силы (2:463/386)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
