[Perl] Net-DNSモジュールによる逆引き



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;
         }
     }
 }

参考文献

初めてのPerl 第5版 続・初めてのPerl 改訂版 DNS & BIND 第5版

Comments are closed.