epd/bt.pl

   1 if (@ARGV) {
   2   open(DATA,@ARGV[0]) || die "Can't open file " . $_;
   3   $move = "";
   4   $time = 0;
   5   $total_time = 0;
   6   $num_correct = 0;
   7   while (<DATA>)
   8   {
   9      if (/^ply/)
  10      {
  11         split;
  12         $newmove = @_[2];
  13         $newtime = @_[3];
  14         if ($newmove ne $move)
  15         {
  16           $move = $newmove;
  17           $time = $newtime;
  18         }
  19      }
  20      elsif (/^search:/)
  21      {
  22         if (/correct/)
  23         {
  24            $num_correct++;
  25   #         print "correct - time = " . $time . "\n";
  26            $total_time += $time;
  27            $time = 0;
  28            $move = "";
  29         }
  30      }
  31   }
  32   print $num_correct . " correct.\n";
  33   #print "time = " . $total_time . "\n";
  34   print "rating = " . (2630 - ((900*(30-$num_correct)) + $total_time)/30) . "\n";
  35 }