utils/OldenDataRecover.pl

   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 }