ちょっと使った Perl ワンライナーをメモッっておく

perl -ne '/^\s*([0-9:\.]{12}).*\[10000\] (start|end).*/ and push(@a,$1);if(eof){for($i=0;$i<=$#a;$i+=2){printf("%s %s %s\n",substr($ARGV,3,7),$a[$i],$a[$i+1])};@a=()}' hoge_*.log