ファイルに保存されたIPアドレスを逆引きするPerlスクリプト
ファイルに保存されたIPアドレスを逆引きするPerlスクリプトです。
ip.txtと言うテキストファイルにIPアドレス一行につき一個を保存してください。
ip-output.txtと言うテキストファイルに、IPアドレスと逆引きされたアドレスが出力されます。
use Socket;
$dbfile = "ip.txt";
open (I, "$dbfile") or die "Unable to open: $dbfile";
my @lines = <I>;
close I;
foreach (@lines){
chomp;
$ip = $_;
$ipinfo = gethostbyaddr(pack('C4',split('\.', $ip)), AF_INET);
print gethostbyaddr(pack('C4',split('\.', $ip)), AF_INET);
print "\n";
if ($ipinfo eq ""){
$ipinfo = "No address";
}
open(OUT,">> ip-output.txt");
print OUT "$ip $ipinfo\n";
close(OUT);
}
