ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander V. Gaiduk                  2:5020/400     10 Apr 2001  11:07:52
 To : All
 Subject : Re: ip в host
 -------------------------------------------------------------------------------- 
 

 
 Artem Chuprina wrote in message ...
 
 >Здравствуй, Andrew Balahonov.
 >
 >В твоём письме от Sat, 7 Apr 2001 10:23:47 +0000 (UTC) написано:
 >
 >smr> Имеем IP c REMOTE_ADDR по которому нужно получить имя хоста
 >smr> типа lookup'а! Что то не получается с gethostbyaddr (недогоняю в чём
 
 дело)
 
 >smr> скрипт стоит под nix'ом
 >
 >Вообще говоря, и не обязан. IP может и не резолвиться.
 
 в этом случае возврящаяется сам IP:
 
 use Socket;
 
 sub host_by_ip {
   my $host = gethostbyaddr(inet_aton($_[0]), AF_INET);
   if ($host !~ /\./) {
     $host = $_[0];
   }
   return $host;
 }
 
 проврено многолетней эксплуатацией.
 
 >
 >--
 >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: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    ip в host   Andrew Balahonov   07 Apr 2001 14:23:47   Re: ip в host   A.Radoselsky   07 Apr 2001 15:20:55   Re: ip в host   Artem Chuprina   09 Apr 2001 12:57:42   Re: ip в host   Alexander V. Gaiduk   10 Apr 2001 11:07:52   Re: ip в host   Andrey Titov   11 Apr 2001 21:14:08   Re: ip в host   Artem Chuprina   12 Apr 2001 11:03:13   Re: ip в host   Alexander V. Gaiduk   12 Apr 2001 12:38:56   Re: ip в host   Artem Chuprina   12 Apr 2001 20:53:58   ip в host   Ivan Starodubtsev   09 Apr 2001 20:01:51