while (<STDIN>) {
chomp;
/^#/ && next;
- 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+/;
if (' . $ARGV[0] . ') {
print $_, "\n";
}