blob: 767839488b348fe179e24d29aa28fb51fa18e296 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#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";
}
|
