1
0
mirror of https://github.com/mpv-player/mpv synced 2024-12-23 07:12:39 +00:00
mpv/TOOLS/countquant.pl
arpi c758807e5b 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
2002-12-15 18:44:24 +00:00

38 lines
756 B
Perl
Executable File

#!/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();