TOOLS/countquant.pl

   1 #!/usr/bin/perl -w
   2
   3 sub display_quants {
   4   $frames = 0;
   5   foreach $key (sort(keys(%quants))) {
   6     $frames += $quants{$key};
   7   }
   8   foreach $key (sort({ $a <=> $b } keys(%quants))) {
   9     printf("q=%d:\t% 6d, % 6.2f%%\n", $key, $quants{$key}, $quants{$key} *
  10            100 / $frames);
  11   }
  12   print("$lines lines processed, $frames frames found\n");
  13   printf("average quant. is: %f\n", $quant_total/$frames);
  14 }
  15
  16 $lines = 0;
  17 $thislines = 0;
  18 $quant_total = 0;
  19
  20 while (<STDIN>) {
  21   $lines++;
  22   $thislines++;
  23   if (/ q:([0-9]+) /) {
  24     $quants{$1}++;
  25   } elsif (/ q:(([0-9]+)\.[0-9]+) /) {
  26     $quants{$2}++;
  27     $quant_total += $1;
  28   }
  29   if ((scalar(@ARGV) > 0) && ($thislines > $ARGV[0])) {
  30     display_quants();
  31     $thislines = 0;
  32   }
  33 }
  34
  35 display_quants();