ドメイン用DNSの発見（Net::DNS）
ここでは、Net::DNSを使って特定のドメインに対するNSレコードを取得する方法を説明したいと思います。
Net::DNSサンプル
以下に単純なサンプルを示します。
#!/usr/bin/perl
use Net::DNS;
$res = Net::DNS::Resolver->new;
$query = $res->query('yahoo.co.jp', 'NS');
#失敗した場合
if (!$query) {
print $res->errorstring;
print "\n";
exit;
}
#結果を表示
foreach $rr ($query->answer) {
if ($rr->type eq "NS") {
print $rr->nsdname;
print "\n";
}
}
exit;
NSレコードは、そのドメインをつかさどるドメインネームサーバを表しています。
