forked from OSchip/llvm-project
38 lines
1.0 KiB
Perl
38 lines
1.0 KiB
Perl
#this script is intended to help recover the running graphs when
|
|
#the nightly tester decides to eat them.
|
|
|
|
#zgrep -E "(=========)|(TEST-RESULT-llc-time)" *-Olden-tests.txt* |perl this > file
|
|
#zgrep -E "(=========)|(TEST-RESULT-compile.*bc)" *-Olden-tests.tx* |perl this >file
|
|
|
|
while (<>) {
|
|
if (/(\d*-\d*-\d*)-.*=========.*\/(.*)\' Program/) {
|
|
# print "$1 $2\n";
|
|
$curP = $2;
|
|
$curD = $1;
|
|
$dates{$1} = 1;
|
|
} elsif (/(\d*-\d*-\d*)-.*TEST-RESULT-.*: program (\d*\.\d*)/) {
|
|
# print "$1 $2\n";
|
|
if ($curD eq $1) {
|
|
$$data{$curD}{$curP} = $2;
|
|
}
|
|
} elsif (/(\d*-\d*-\d*)-.*TEST-RESULT-.*: (\d*)/) {
|
|
# print "$1 $2\n";
|
|
if ($curD eq $1) {
|
|
$$data{$curD}{$curP} = $2;
|
|
}
|
|
}
|
|
}
|
|
@progs = ("bh", "em3d", "mst", "power", "tsp", "bisort", "health", "perimeter", "treeadd", "voronoi");
|
|
|
|
foreach $date (sort keys %dates) {
|
|
print "$date: ";
|
|
foreach $prog (@progs) {
|
|
if ($$data{$date}{$prog}) {
|
|
print " $$data{$date}{$prog}";
|
|
} else {
|
|
print " 0";
|
|
}
|
|
}
|
|
print "\n";
|
|
}
|