![]() ![]() |
Интересные решения Perl. Вопросы и ответыDNS-запросыДля того, чтобы сделать запросы к DNS в Perl можно использовать модуль Net::DNS. Модуль позволяет:
Получить список NS-записей для домена $domain с сервера с IP $ip в массив @n: use Net::DNS;
my @n = ();
my $res = Net::DNS::Resolver->new();
$res->recurse(0);
$res->nameservers($ip);
my $ns_req = $res->query($domain, 'NS');
if (defined($ns_req)) {
foreach my $nsrr (grep {$_->type eq 'NS' } $ns_req->answer) {
push @n, $nsrr->nsdname;
}
} else {
print "$ns ($ip): " . $res->errorstring . "\n";
}
Опубликовано: 09 апреля 2011 года. Комментарии посетителей сайта
|
|
© Алексей Кощеев, г.Киров, 2001-2023 |
|