perl получить dns имя по ip без записей ptr

[strelokr]

собственно сабж как
perl получить dns имя по ip без записей ptr
Из IP в имя:
use Socket;
my $host = gethostbyaddr(inet_aton("192.168.1.1"), AF_INET);
работает только если у хоста есть PTR запись. А как взять А запись из ДНС для которой не существует PTR записи

p.s. заморачиваюсь автоматизировать генерацию файлы dhcpd.conf.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[rayder]

открою вам маленькую тайну, PTR это и есть A запись в зоне in-addr.arpa,
почитайте внимательнее про типы записей в DNS и как это работает

[FiL]

собственно сабж как
perl получить dns имя по ip без записей ptr
Из IP в имя:
use Socket;
my $host = gethostbyaddr(inet_aton("192.168.1.1"), AF_INET);
работает только если у хоста есть PTR запись. А как взять А запись из ДНС для которой не существует PTR записи

p.s. заморачиваюсь автоматизировать генерацию файлы dhcpd.conf.

А как найти в каком домене искать эту А запись?

Так что вывод прост - никак. Добавляете прямую запись - не ленитесь добалять и обратную. Тогда проблем не будет.

[rayder]

А как найти в каком домене искать эту А запись?
Так что вывод прост - никак. Добавляете прямую запись - не ленитесь добалять и обратную. Тогда проблем не будет.

а зачем искать, я же сказал в какой зоне...
а вот где именно - об этом ТС нужно почитать доки

[strelokr]

ТС сделал хитрее. на 1с накодил скрипт который берет список hostname - ip делает пинг ip и после arp -a этого ip, запихивает в память и в результате формирует список для dhcp.conf . у кого нету мака тех # коментируем и пустой мак.

[rayder]

вы знаете толк в извращениях