annotate TOOLS/menc2pass @ 7729:36170c5a3c9a

liblzo realtime video codec support (decoding only) patch by Tilmann Bitterberg <transcode@tibit.org>
author arpi
date Sun, 13 Oct 2002 21:40:10 +0000
parents 7a5021d0a2de
children ee0c2391e45d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3024
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
1 #!/usr/bin/perl -w
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
2 # Helper script to ease MEncoder two pass encoding
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
3 # Copyleft 2001 by Felix Buenemann <atmosfear@users.sourceforge.net>
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
4 # This files comes udner GPL, see http://www.gnu.org/copyleft/gpl.html for more
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
5 # information on it's licensing.
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
6 use strict;
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
7 my $mencoder="mencoder"; # Path to MEncoder (including binary name)
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
8
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
9 die <<"EOF" unless @ARGV;
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
10 Menc2Pass: No arguments given!
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
11 Please give all usual encoding parameters you would give to mencoder, but leave
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
12 away the -pass switch.
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
13 EOF
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
14
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
15 for(my $i=1; $i<=2; $i++) {
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
16 system($mencoder,@ARGV," -pass $i")
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
17 and die "MEncoder pass $i failed!\n"
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
18 }
7a5021d0a2de Small two pass mencoder helper script in perl.
atmos4
parents:
diff changeset
19