utils/OldenDataRecover.pl

#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";
}