Perl弄ってみた

Programing

IPアドレスをホスト名に一括変換するサービスが無いかと思って探してみたが見つからないので初めてPerlにチャレンジ。
ActivePerlを入れるところからやってみた。
で、できあがったのがこんなん。

use Socket;

print "File Name; ";
chomp($filename = <STDIN>) || die "a.csv: $!";
open(IN, $filename) || die "$filename: $!";
open(OUT,">output.txt") || die "output.txt: $!";
while(<IN>){
  $iaddr = pack('C*', split(/\./, ));
  $host_name = gethostbyaddr($iaddr, AF_INET);
	print OUT "$host_name\n";
	print "$host_name\n";
}
close(IN);
close(OUT);

改行区切りのIPアドレス(127.0.0.1とか)を入力するとファイルに書き出してくれる。