forum.opennet.ru - "Раздел полезных советов: Как в perl выполнить DNS преобразов..." (2)

форумы

помощь

поиск

регистрация

майллист

вход/выход

слежка

"Раздел полезных советов: Как в 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.me/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 | Индекс форумов | Темы | Пред. тема | След. тема

Партнёры:

Хостинг:

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ообщить модератору