パールでドメインネーム変換の変更点

追加された行はこの色です。
削除された行はこの色です。
パールでドメインネーム変換へ行く。

[[雑記帳]]
 #error_logを解析してipアドレスをdomainネームに変換
 use Socket;
 $filename="error_log.4";
 open(FILE,$filename)or die "$!";
 while(defined($line=<FILE>)){
 	chomp($line);
 	if($line=~/client ([^\]]*)/){
 		my $ip=$1;
 		my $hostname=&getIP($ip);
 #		print "$line\n";
 		if($line=~/^\[([^\]]*)/){
 			$data=$1;
 			print "$data\t$ip\t";
 		}
 		if(defined($hostname)){
 			print "$hostname\n";
 		}else{
 			print "unKnown Host\n";
 		}
 	}
 }
 close(FILE);
 
 sub getIP{
 	my $ip=shift;
 	my $iaddr = pack('C*', split(/\./, $ip));
 	my $hostname = gethostbyaddr($iaddr, AF_INET);
 	return $hostname;
 }

パールでドメインネーム変換 の変更点

パールでドメインネーム変換の変更点