雑記帳
#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;
}