I am using the following code to read in a web site access log file and translate IP addresses to their domain names:
1 open(LOG, "$logfile");
2 open(TEMP, ">$tempfile");
3 while(my $line = <LOG>)
4 {
5 if($line =~ /^(\d{2,}\.\d{2,}\.\d{2,}\.\d{2,})/)
6 {
7 my $ip_address...