ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     07 Jun 2002  09:36:44
 To : Eugene Grosbein
 Subject : Re: gethostbyaddr
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Eugene Grosbein.
 
  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;
 
 EG> Пробовал. Hе то.
 
 EG> # perl -e 'use Socket; print
 EG> gethostbyaddr(inet_aton('213.184.65.65'),AF_INET);
 EG> '
 EG> localhostlocalhost.my.domain24.
 EG> Что я делаю не так?
 
 Hеправильно работаешь с шеллом. Апостроф перед 2 не передается перлу, а
 закрывает то, что начато апострофом перед u. Со всеми вытекающими.
 
 EG> Это вовсе не мой IP и мне не нужна вся эта мума.
 EG> Пробовал делать print scalar gethosybyaddr ..., печатает localhost,
 
 А ты бы начал с моего примера как он есть. Я его, видишь ли, тестировал. И
 двигался мелкими шагами. Тогда на одном из шагов, получив неправильный ответ
 вместо правильного, ты бы понял, что разница между скалярным контекстом и
 списковым для gethostbyaddr есть.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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