ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     16 Apr 2001  14:09:39
 To : sa@udomlya.tvcom.ru
 Subject : Re: Net::Ping
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Sans Kokorin.
 
 В твоём письме от Sun, 15 Apr 2001 14:19:45 +0000 (UTC) написано:
 
 sutr> Hello All,
 
 sutr> ping.asp?host=localhost
 
 sutr> ------------------------------
 sutr> <%@ Language=PerlScript %>
 sutr> <%
 sutr> use Net::Ping;
 sutr> $host = GetUrl($Request->querystring('host')->item);
 
 sutr> $timeout = 10000;
 sutr> ...
 %>> 
 sutr> -----------------------
 sutr> как сделать пинг хоста переданного через querystring('host'), не просто
 sutr> ping, но полноценный пинг - то есть время отклика и ресолв IP <->
 sutr> namehost
 
 Так и сделать. Замерить время выполнения метода ping посредством Time::HiRes и
 воспользоваться стандартными функциями gethostbyaddr и gethostbyname
 соответственно. Причем если задано имя хоста, то лучше сначала сделать
 gethostbyname, и потом пинговать один (или все) из полученных адресов, а то
 может получиться так, что покажешь один адрес, а пинговать будешь другой.
 
 -- 
 Artem Chuprina                            E-mail: ran@ran.pp.ru
 Programmer                                  FIDO: 2:5020/371.32
 Memonet Ltd.                             Phone: +7-095-284-1356
 --- ifmail v.2.15dev5
  * Origin: NTV Internet (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Net::Ping   Sans Kokorin   15 Apr 2001 18:19:45   Re: Net::Ping   Artem Chuprina   16 Apr 2001 14:09:39