Net::DNS 

DNS名が登録されているのか、それとも登録されていないものなのかをチェックしたくなった。

Net::DNSを使えばいいらしい。

うむ。では行こう。

my(@list);
my $res = Net::DNS::Resolver->new;
my $query = $res->search($domain);

if($query)
{ foreach my $rr ($query->answer)
{ next unless $rr->type eq "A";
push(@list, $rr->address);
}
}else
{ ; #登録されていない
}



こんな感じで使えるわけだ。

コメント

コメントの投稿















管理者にだけ表示を許可する

トラックバック

この記事のトラックバックURL
http://haginov.blog35.fc2.com/tb.php/22-4dcf2655