- my ($t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
+ my ($id, $t1, $t2, $src, $dst, $ffor, $result, $cache, $queue, $length, $totaltime, $waittime, $ctype, $method, $url) = split /\s+/;
my ($tY, $tm, $td) = split (/-/, $t1);
my ($tH, $tM, $tS) = split (/:/, $t2);
my $tt = POSIX::mktime($tS, $tM, $tH, $td, $tm-1, $tY-1900);
my ($tY, $tm, $td) = split (/-/, $t1);
my ($tH, $tM, $tS) = split (/:/, $t2);
my $tt = POSIX::mktime($tS, $tM, $tH, $td, $tm-1, $tY-1900);