diff options
Diffstat (limited to 'TOOLS/countquant.pl')
-rwxr-xr-x | TOOLS/countquant.pl | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/TOOLS/countquant.pl b/TOOLS/countquant.pl deleted file mode 100755 index 4256fa0bc7..0000000000 --- a/TOOLS/countquant.pl +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/perl -w - -sub display_quants { - $frames = 0; - foreach $key (sort(keys(%quants))) { - $frames += $quants{$key}; - } - foreach $key (sort({ $a <=> $b } keys(%quants))) { - printf("q=%d:\t% 6d, % 6.2f%%\n", $key, $quants{$key}, $quants{$key} * - 100 / $frames); - } - print("$lines lines processed, $frames frames found\n"); - printf("average quant. is: %f\n", $quant_total/$frames); -} - -$lines = 0; -$thislines = 0; -$quant_total = 0; - -while (<STDIN>) { - $lines++; - $thislines++; - if (/ q:([0-9]+) /) { - $quants{$1}++; - } elsif (/ q:(([0-9]+)\.[0-9]+) /) { - $quants{$2}++; - $quant_total += $1; - } - if ((scalar(@ARGV) > 0) && ($thislines > $ARGV[0])) { - display_quants(); - $thislines = 0; - } -} - -display_quants(); |