sub get_log_content {
my $log_file = pop;
my @log;
my $i=0;
open(LOGFILE,"<$log_file");
while (<LOGFILE>) {
my @tmp=split("\s+",$_);
$log[$i]{'time'}=$tmp[0].$tmp[1];
$log{$i]{'clientip'}=$tmp[4];
$log[$i]{'clientport'}=$tmp[5];
$log[$i]{'action'}=$tmp[6];
$log[$i]{'url'}=$tmp[7];
$log[$i]{'return'}=$tmp[9];
$log[$i]{'size'}=$tmp[10];
$log[$i++]{'clientmsg'}=$tmp[11];
}
close(LOGFILE);
return \@log;
}