46 lines
910 B
Perl
46 lines
910 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my %times;
|
||
|
|
my %benchmarks;
|
||
|
|
my %runtimes;
|
||
|
|
my %gctimes;
|
||
|
|
|
||
|
|
{
|
||
|
|
my $curtime;
|
||
|
|
my $curbench;
|
||
|
|
my $counter = 0;
|
||
|
|
open F, "<log.time" or die;
|
||
|
|
while(<F>){
|
||
|
|
if (/^NOW: (.*)/){
|
||
|
|
$curtime = $1;
|
||
|
|
$times{$curtime} = ++$counter;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
if(/^running stats for (.*):$/){
|
||
|
|
$curbench = $1;
|
||
|
|
$benchmarks{$curbench} ||= ++$counter;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
if(/^ *(\d*) ms elapsed cpu time, including (\d*) ms collecting$/){
|
||
|
|
$runtimes{$curbench}{$curtime} = $1;
|
||
|
|
$gctimes{$curbench}{$curtime} = $2;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
close F;
|
||
|
|
}
|
||
|
|
|
||
|
|
my @times = sort { $times{$a} <=> $times{$b} } keys %times;
|
||
|
|
my @benchmarks = sort { $benchmarks{$a} <=> $benchmarks{$b} } keys %benchmarks;
|
||
|
|
|
||
|
|
foreach my $bench (@benchmarks){
|
||
|
|
print "benchmark: $bench\n";
|
||
|
|
foreach my $time (@times){
|
||
|
|
printf " %6s on $time\n", $runtimes{$bench}{$time};
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|