Mercurial > mplayer.hg
changeset 3024:7a5021d0a2de
Small two pass mencoder helper script in perl.
| author | atmos4 |
|---|---|
| date | Tue, 20 Nov 2001 13:02:56 +0000 |
| parents | 7d6a1fd5bbab |
| children | 5464d91e13b4 |
| files | TOOLS/menc2pass |
| diffstat | 1 files changed, 19 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/TOOLS/menc2pass Tue Nov 20 13:02:56 2001 +0000 @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w +# Helper script to ease MEncoder two pass encoding +# Copyleft 2001 by Felix Buenemann <atmosfear@users.sourceforge.net> +# This files comes udner GPL, see http://www.gnu.org/copyleft/gpl.html for more +# information on it's licensing. +use strict; +my $mencoder="mencoder"; # Path to MEncoder (including binary name) + +die <<"EOF" unless @ARGV; +Menc2Pass: No arguments given! +Please give all usual encoding parameters you would give to mencoder, but leave +away the -pass switch. +EOF + +for(my $i=1; $i<=2; $i++) { + system($mencoder,@ARGV," -pass $i") + and die "MEncoder pass $i failed!\n" +} +