форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Perl и аналог host"
Сообщение от XPurple (ok) on 24-Окт-05, 19:15  (MSK)
Какая команда в перле заменяет программу host ? Требуется из обратной зоны по ip-адресу получить имя хоста.
	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Perl и аналог host"
Сообщение от rWizard (??) on 24-Окт-05, 19:41  (MSK)
>Какая команда в перле заменяет программу host ? >Требуется из обратной зоны по ip-адресу получить имя хоста. gethostbyaddr - обратное преобразование gethostbyname - прямое ещё есть Net::DNS
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "Perl и аналог host"
	Сообщение от XPurple (ok) on 25-Окт-05, 20:23  (MSK)
	Не подскажете пример команды gethostbyaddr ADDR,TYPEADDR. (так кажется пишется, пишу по памяти) Вызвало затруднение TYPEADDR, пробовал ставить из примера, взятого в perldoc - не возвращает имя хоста. >gethostbyaddr - обратное преобразование >ещё есть Net::DNS через модуль Net::DNS получилось, причем сразу.
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Perl и аналог host"
	Сообщение от rWizard (??) on 25-Окт-05, 22:34  (MSK)
	>Не подскажете пример команды gethostbyaddr ADDR,TYPEADDR. Пример из perldoc # cat test2.pl use Socket; $iaddr = inet_aton("194.87.0.50"); my $host = gethostbyaddr($iaddr, AF_INET); print $host, "\n"; # perl test2.pl www.ru
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "Perl и аналог host"
	Сообщение от XPurple (ok) on 29-Окт-05, 07:55  (MSK)
	># cat test2.pl >use Socket; >$iaddr = inet_aton("194.87.0.50"); >my $host = gethostbyaddr($iaddr, AF_INET); >print $host, "\n"; > ># perl test2.pl >www.ru Заметил разницу при определении имени хоста с использованием use Socket и Net::DNS::Resolver. В первом случае идет обращение к файлу hosts, только потом к nameserver-у. В итоге, возвращается имя без доменного суффикса. Т.е. если в файле hosts указан псевдоним хоста без суффикса вида host.domain.ru host, то результатом этой программы является вывод имени в виде host Если я делаю с использованием DNS::Resolver, то возвращается имя хоста с суффиксом. Т.е. DNS::Resolver обращается сразу к nameserver-у, минуя установки resolv.conf и hosts. Вот такое наблюдается разночтение двух методов определения имени хостов. use Net::DNS;          my $res   = Net::DNS::Resolver->new;          my $query = $res->search("192.168.1.1");          if ($query) {              foreach my $rr ($query->answer) {                  next unless $rr->type eq "PTR";                  print $rr->ptrdname, "\n";              }          } else {              warn "query failed: ", $res->errorstring, "\n";          }
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "Perl и аналог host"
	Сообщение от chip (ok) on 30-Окт-05, 09:20  (MSK)
	>># cat test2.pl >>use Socket; >>$iaddr = inet_aton("194.87.0.50"); >>my $host = gethostbyaddr($iaddr, AF_INET); >>print $host, "\n"; >> >># perl test2.pl >>www.ru >Заметил разницу при определении имени хоста с использованием use Socket >и Net::DNS::Resolver. http://chip.kaluga.net/archives/174-freebsd-etchosts.html
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ]

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.