DNS問い合わせ

---

　Net::DNSモジュールを使います。

# DNSの逆引きを行う
use strict;
use warnings;

use Net::DNS;

my $ip = "192.0.34.166";

my $res = Net::DNS::Resolver->new;
#$res->nameservers("NAMESERVER"); # Nameサーバを指定する場合
my $query = $res->query($ip);

if ($query) {
	foreach my $rr ($query->answer) {
		next if $rr->type ne "PTR";
		print $rr->ptrdname, "\n";
	}
} else {
	print "Error: ", $res->errorstring, "\n";
}

---

関連項目

・IPアドレスからホスト名を取得
・ホスト名からIPアドレスの取得
・IPアドレスやドメイン名がどこの国にあるのかを調べる
・MXレコード情報の取得