Andrew Lenharth | 65c1e46 | 2006-04-12 17:41:19 +0000 | [diff] [blame] | 1 | #this script is intended to help recover the running graphs when |
| 2 | #the nightly tester decides to eat them. |
| 3 | |
| 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 |
| 6 | |
| 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; |
| 17 | } |
| 18 | } elsif (/(\d*-\d*-\d*)-.*TEST-RESULT-.*: (\d*)/) { |
| 19 | # print "$1 $2\n"; |
| 20 | if ($curD eq $1) { |
| 21 | $$data{$curD}{$curP} = $2; |
| 22 | } |
| 23 | } |
| 24 | } |
| 25 | @progs = ("bh", "em3d", "mst", "power", "tsp", "bisort", "health", "perimeter", "treeadd", "voronoi"); |
| 26 | |
| 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"; |
| 34 | } |
| 35 | } |
| 36 | print "\n"; |
| 37 | } |