The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Раздел полезных советов: Как в perl выполнить DNS преобразов..."
Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Изначальное сообщение [ Отслеживать ]

"Раздел полезных советов: Как в perl выполнить DNS преобразов..."  +/
Сообщение от auto_tips (??) on 04-Май-05, 17:34 
Из IP в имя:
   use Socket;
   my $host = gethostbyaddr(inet_aton("192.168.1.1"), AF_INET);

Из хоста в IP:
   use Socket;
   my $ip = inet_ntoa((gethostbyname("www.test.ru"))[4]);


URL:
Обсуждается: http://www.opennet.dev/tips/info/844.shtml

Высказать мнение | Ответить | Правка | Cообщить модератору

Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Как в perl выполнить DNS преобразование IP в имя и наоборот."  +/
Сообщение от Andrey (??) on 04-Май-05, 17:34 
use Net::hostent;
Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

2. "Как в perl выполнить DNS преобразование IP в имя и наоборот."  +/
Сообщение от Кирилл_Н (ok) on 12-Авг-10, 13:25 
  use Net::DNS;
  my $res   = Net::DNS::Resolver->new;
  my $query = $res->search("www.test.ru");

  if ($query)
  {
     foreach my $rr ($query->answer)
     {
        next unless $rr->type eq "A";
        print $rr->address, "\n";
     }
  }

Возвращает не один адрес, а все указанные для этого ДНС имени

Высказать мнение | Ответить | Правка | ^ | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру