make more clear since it is sorted by last name now.
[llvm/avr.git] / utils / OldenDataRecover.pl
blob767839488b348fe179e24d29aa28fb51fa18e296
1 #this script is intended to help recover the running graphs when
2 #the nightly tester decides to eat them.
4 #zgrep -E "(=========)|(TEST-RESULT-llc-time)" *-Olden-tests.txt* |perl this > file
5 #zgrep -E "(=========)|(TEST-RESULT-compile.*bc)" *-Olden-tests.tx* |perl this >file
7 while (<>) {
8 if (/(\d*-\d*-\d*)-.*=========.*\/(.*)\' Program/) {
9 # print "$1 $2\n";
10 $curP = $2;
11 $curD = $1;
12 $dates{$1} = 1;
13 } elsif (/(\d*-\d*-\d*)-.*TEST-RESULT-.*: program (\d*\.\d*)/) {
14 # print "$1 $2\n";
15 if ($curD eq $1) {
16 $$data{$curD}{$curP} = $2;
18 } elsif (/(\d*-\d*-\d*)-.*TEST-RESULT-.*: (\d*)/) {
19 # print "$1 $2\n";
20 if ($curD eq $1) {
21 $$data{$curD}{$curP} = $2;
25 @progs = ("bh", "em3d", "mst", "power", "tsp", "bisort", "health", "perimeter", "treeadd", "voronoi");
27 foreach $date (sort keys %dates) {
28 print "$date: ";
29 foreach $prog (@progs) {
30 if ($$data{$date}{$prog}) {
31 print " $$data{$date}{$prog}";
32 } else {
33 print " 0";
36 print "\n";