ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Mike                                 2:5020/400     05 Jul 2003  10:08:45
 To : All
 Subject : IP->hostname
 -------------------------------------------------------------------------------- 
 

 Привет!
 
 IP-адрес по имени определяется просто:
 ($aa, $bb, $cc, $dd) = unpack('C4', gethostbyname($HOSTNAME));
 print "$aa.$bb.$cc.$dd";
 
 а вот как сделать обратную операцию? Примерчик из perldoc
 use Socket;
 $HOSTNAME=gethostbyaddr(inet_aton($IP), AF_INET);
 работает, но страшно замедляет выполнение скрипта. Возможно, это из-за
 подключения библиотеки Socket. Хотелось бы знать, как вызывать функцию
 gethostbyaddr без библиотек. Объясните, пожалуйста, какие у нее параметры. 
 Как правильно упаковать $IP и каким может быть второй параметр - в
 частности, чему равно значение AF_INET?
 -- 
 Best regards
 (M)ike
 При ответе на e-mail убрать из адреса NOS
 --- ifmail v.2.15dev5
  * Origin: Best antimagic/antiUFO cure: http://skeptik.net (2:5020/400)
 
 

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