イイ!! プログラミング Blog

Net::DNS::Resolver の入手

以下のURLからダウンロードできる。
http://search.cpan.org/dist/Net-DNS/lib/Net/DNS.pm

サンプルコード

Net-DNS-Resolverモジュールを使う。

 sub getptr_rec {
     my $ip = shift;
     my $resolv = new Net::DNS::Resolver;

     my $query = $resolv->search($ip, 'PTR');
     if ($query) {
         foreach ($query->answer) {
                 next if ($_->type ne 'PTR');
                 return $_->rdatastr;
         }
     }
 }

参考文献

この投稿は 2006 年 1 月 31 日 火曜日 9:00 AM に Mobile, perl カテゴリーに公開されました。 この投稿へのコメントは RSS 2.0 フィードで購読することができます。 現在コメントは受け付けておりませんが、ご自分のサイトからトラックバックを送ることはできます。