tools/performance/startup/compareNavStats.bat

   1 @rem = ('
   2 @perl compareNavStats.bat %1 %2 %3 %4 %5 %6
   3 @goto done
   4 @rem ');
   5
   6 #<perl>
   7 if ( @ARGV + 0 ) {
   8    # Get numbers from args.
   9    @desc = ( "first", "second" );
  10    $sum1 = $ARGV[0] + $ARGV[1] + $ARGV[2];
  11    $sum2 = $ARGV[3] + $ARGV[4] + $ARGV[5];
  12 } else {
  13    # Get numbers from stdin.
  14    @args = ();
  15    @desc = ();
  16    while (<>) {
  17      print;
  18      if ( /^----- (.*) -----/ ) {
  19         $#desc += 1;
  20         @desc[ $#desc ] = $1;
  21      }
  22      if ( /^(\d+\.?\d*)\:\s*Navigator Window visible now/ ) {
  23         $#args += 1;
  24         @args[ $#args ] = $1;
  25      }
  26    }
  27    $sum1 = $args[0] + $args[1] + $args[2];
  28    $sum2 = $args[3] + $args[4] + $args[5];
  29 }
  30 $avg1 = $sum1/3;
  31 $avg2 = $sum2/3;
  32 $diff = $avg1 - $avg2;
  33 printf "%s=%f %s=%f diff=%f (%f%% %s)\n", $desc[0], $avg1, $desc[1], $avg2, $diff, abs(($diff/$avg1)*100), ($diff>=0 ? "faster" : "slower");
  34 #</perl>
  35
  36 @rem = ('
  37 :done
  38 @rem ');