スポンサーサイト 

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

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

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。