標準入力から与えられたIPアドレスのリストを逆引きして出力する

gistfile1.pl

# DNS PTR record lookup
# 標準入力から与えられたIPアドレスのリストを逆引きして出力する
use strict;
use Net::DNS;
my $resolver = Net::DNS::Resolver->new();
while (<>) {
	chomp;
	my $ipaddress = $_;
	my $query = $resolver->search($ipaddress, 'PTR');
	unless ($query) {
		print $ipaddress."\t\n";
		next;
	}
	my $hostname = '';
	foreach my $rr ($query->answer()) {
		if ($rr->type eq 'PTR') {
			$hostname = $rr->ptrdname;
			last;
		}
	}
	print $ipaddress."\t".$hostname."\n";
}