Geekなぺーじ : 逆引き（Net::DNS）

ここでは、Net::DNSを使ってPTRレコードを取得する方法を説明したいと思います。 PTRレコードはIPアドレスからFQDNを解決するためのものです。 Net::DNSサンプル 以下に単純なサンプルを示します。 #!/usr/bin/perl use Net::DNS; $res = Net::DNS::Resolver->new; # IPアドレス部分を変更して下さい $query = $res->search('10.1.2.3', 'PTR'); #失敗した場合 if (!$query) { print $res->errorstring; print "\n"; exit; } #結果を1行づつ表示 foreach $rr ($query->answer) { if ($rr->type eq "PTR") { print $rr->ptrdname; print "\n";

[windish]

めも