#! /usr/bin/perl -w
# scanres <file> [<percnt>]
#  looks for two % numbers per line and prints the max, the average, and the number 
#  that are over <percnt> (default 5)
$file = $ARGV[0];
$N = 5;
if (defined($ARGV[1])) {
  $N = $ARGV[1];
}
open(RES, $file) || die "no file ",$file;
$k= 0; #index of lines seen
while ($line = <RES>) {
  @fields = split(" ", $line);
  $first = 1;
  for ($i=0; defined($fields[$i]); $i++) {
    if ($fields[$i] =~ /%/) {
      @num = split("%", $fields[$i]);
      if ($first) {
        $first = 0;
        $one[$k] = $num[0];
        $two[$k] = $num[0];  #in case there isn't a second one
        $k++;
      }
      else {
        $two[$k-1] = $num[0];
      }
    }
  }
}
$m1 = $one[0];
$m2 = $two[0];
$ave1 = 0;
$ave2 = 0;
$ov5er1 = 0;
$ov5er2 = 0;
for ($i=0; $i < $k; $i++) {
  if ($one[$i] > $m1) {$m1 = $one[$i];}
  if ($two[$i] > $m2) {$m2 = $two[$i];}
  $ave1 += $one[$i];
  $ave2 += $two[$i];
  if ($one[$i] > $N) {$ov5er1 += 1;}
  if ($two[$i] > $N) {$ov5er2 += 1;}

}
$ave1 /= $k;
$ave2 /= $k;
printf "fun: %3.2f %3.2f %d   run: %3.2f %3.2f %d\n", $m1, $ave1, $ov5er1, $m2, $ave2, $ov5er2;
