|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 23 Nov 2001 13:56:33
To : "Revenko Alexander"
Subject : Re: NET::Ping - на работает!!!!
--------------------------------------------------------------------------------
Здравствуй, Revenko Alexander.
RA> Приветствую!!!!
RA> Появилось желание на моем Линухе (RedHat 7.1) запустить задачку проверки
RA> компьютеров локальной сети - работают или повисли.
RA> Hаписал на перле скрипт типа:
RA> use Net::Ping;
RA> my $p=Net::Ping->new("tcp");
RA> my $ans;
RA> my $host="192.168.3.1";
RA> for(my $i=0;$i<10;$i++)
RA> {
RA> $ans = $p->ping($host);
RA> if ( $ans )
RA> {
RA> print "All is OK!!!\n";
RA> }
RA> }
RA> т.е. все по инструкции-примеру. Hо в переменную $ans попадает 0, а не
RA> 1!!!!! Причем могу пинговать даже локальную машину - все равно получаю 0!!!!
RA> Такое ощущение, что функция PING не работает. Хотя ручками дать команду
RA> PING - ответы локальных компов нормально идут.
Обычный ping кидается ICMP-пакетами, а твой - TCP.
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
Fill the difference...
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
