ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Revenko Alexander 2:5020/400 21 Nov 2001 17:14:18
To : All
Subject : NET::Ping - на работает!!!!
--------------------------------------------------------------------------------
Приветствую!!!!
Появилось желание на моем Линухе (RedHat 7.1) запустить задачку проверки
компьютеров локальной сети - работают или повисли.
Hаписал на перле скрипт типа:
use Net::Ping;
my $p=Net::Ping->new("tcp");
my $ans;
my $host="192.168.3.1";
for(my $i=0;$i<10;$i++)
{
$ans = $p->ping($host);
if ( $ans )
{
print "All is OK!!!\n";
}
}
т.е. все по инструкции-примеру. Hо в переменную $ans попадает 0, а не
1!!!!! Причем могу пинговать даже локальную машину - все равно получаю 0!!!!
Такое ощущение, что функция PING не работает. Хотя ручками дать команду
PING - ответы локальных компов нормально идут.
Что не так????
С уважением
adm@lahta.ru
--- ifmail v.2.15dev5
* Origin: Ye 'Ol Disorganized NNTPCache groupie (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
