ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Eugene Grosbein                      2:5006/1       07 Jun 2002  11:56:46
 To : Artem Chuprina
 Subject : Re: gethostbyaddr
 -------------------------------------------------------------------------------- 
 

 
  EG>> Как можно сделать то же без fork+exec и без Net::DNS?
  EG>> Желательно не ссылку на subj, а хотя бы пару строчек кода.
  AC> use Socket;
  AC> my $ip = '208.201.239.56';
  AC> my $hostname = gethostbyaddr(inet_aton($ip),AF_INET);
  AC> print $hostname;
 
 Пробовал. Hе то.
 
 # perl -e 'use Socket; print gethostbyaddr(inet_aton('213.184.65.65'),AF_INET); 
 '
 localhostlocalhost.my.domain24.
 Что я делаю не так? Это вовсе не мой IP и мне не нужна вся эта мума.
 Пробовал делать print scalar gethosybyaddr ..., печатает localhost,
 но это неверно. resolver настроен правильно, host отвечает верно
 и в /etc/hosts этот IP даже не упоминается.
 
 Eugene
 -- 
 "Люди забыли эту истину," - сказал Лис, - "но ты не забывай"
 --- slrn/0.9.7.4 (FreeBSD)
  * Origin: Svyaz Service JSC (2:5006/1@fidonet)
 
 

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