summaryrefslogtreecommitdiffstats
path: root/TOOLS/countquant.pl
diff options
context:
space:
mode:
authorwm4 <wm4@mplayer2.org>2012-07-28 18:00:33 +0200
committerwm4 <wm4@mplayer2.org>2012-07-28 20:44:58 +0200
commit6dc124962527556512b6b18fbf23f9b6af9f331c (patch)
tree9677196e5bbbaf3a8ee7e11bb78eb88c765a0e90 /TOOLS/countquant.pl
parent7d4576cf79bc578ce7c103e4df70695346c7eec7 (diff)
downloadmpv-6dc124962527556512b6b18fbf23f9b6af9f331c.tar.bz2
mpv-6dc124962527556512b6b18fbf23f9b6af9f331c.tar.xz
TOOLS: remove useless crap
Most of the scripts in TOOLS seem entirely useless. Remove them. There were about 3 types of scripts: - apparent developer tools (like file format dumpers, benchmarks) => I doubt any mplayer developer still alive even uses these - helpers for encoding or ripping stuff => mencoder is gone, at least from this version of mplayer - helpers meant for users (launching mplayer in weird ways, etc.) => just no, it will cause you more pain than gain So no, there is nothing useful. Under the scripts not deleted, these are needed for building mplayer: file2string.py matroska.py vdpau_functions.py These might have _some_ use (but still questionable): binary_codecs.sh checktree.sh
Diffstat (limited to 'TOOLS/countquant.pl')
-rwxr-xr-xTOOLS/countquant.pl35
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();