diff options
| -rw-r--r-- | utils/OldenDataRecover.pl | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/utils/OldenDataRecover.pl b/utils/OldenDataRecover.pl new file mode 100644 index 0000000000..767839488b --- /dev/null +++ b/utils/OldenDataRecover.pl @@ -0,0 +1,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"; +} |