From c758807e5b22050a1395f0d16b202e647e14a669 Mon Sep 17 00:00:00 2001 From: arpi Date: Sun, 15 Dec 2002 18:44:24 +0000 Subject: scripts mentioned by DOCS/tech/encoding-tips.txt written by Moritz Bunkus git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@8465 b3059339-0415-0410-9bf9-f77b7e298cf2 --- TOOLS/countquant.pl | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100755 TOOLS/countquant.pl (limited to 'TOOLS/countquant.pl') diff --git a/TOOLS/countquant.pl b/TOOLS/countquant.pl new file mode 100755 index 0000000000..2b19c5b79d --- /dev/null +++ b/TOOLS/countquant.pl @@ -0,0 +1,37 @@ +#!/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 () { + $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(); + + -- cgit v1.2.3