Mercurial > mplayer.hg
view TOOLS/mp.pl @ 8607:d6f40a06867b
Changes includes:
- Improved runtime control system
- 3 New filter panning, compressor/limiter and a noise gate
- The compressor/limiter and the noise gate are not yet finished
- The panning filter does combined mixing and channel routing and
can be used to down-mix from stereo to mono (for example)
- Improvements to volume and channel
- volume now has a very good soft clipping using sin()
- channel can handle generic routing of audio data
- Conversion of all filters to handle floating point data
- Cleanup of message printing
- Fix for the sig 11 bug reported by Denes
author | anders |
---|---|
date | Sat, 28 Dec 2002 13:59:53 +0000 |
parents | 493cbec56a14 |
children |
line wrap: on
line source
#!/usr/bin/perl -w use strict; # Filename: mp.pl # Date : created 2001-07-24 # Author : Felix Buenemann <atmosfear at users.sourceforge.net> # Idea by : David Chan <prometheus at theendofthetunnel.org> # License : GNU General Public License (GPL) # (refer to: http://www.fsf.org/licenses/gpl.txt) # # Description: # Small Perl helper script that allows to play multiple files with MPlayer. # Wildcards are supported (eg. "mp.pl -vo x11 /data/*.avi"). # # Configuration: # If MPlayer is not in your path, give the full # path to mplayer binary in the line below. # (example: "/usr/local/bin/mplayer") use constant MPLAYER => "mplayer"; my (@parms, @files); die "mp.pl: No parameters given! MPlayer multifile playback helper script 0.9 Copyleft 2001 by Felix Buenemann Syntax: mp.pl <parameters> <files> Where <parameters> are all possible commandline switches for mplayer and <files> can be either a list of files, like file1 file2 file3 and/or a wildcard definition, like *.avi. Example: mp.pl -vo x11 /dvd/VIDEO_TS/VTS_05_*.VOB movie.asf \n" if ($#ARGV < 0) || ($ARGV[0] =~ m/^--*(h|help)/); foreach (@ARGV) { if(m/^-\w+/) { push @parms, $_ } elsif(-f $_ && -r _ && -B _) { push @files, $_ } else { push @parms, $_ } } die "No valid files to process!\n" unless @files; foreach (@files) { print "Invoking MPlayer for '$_'...\n"; system(MPLAYER, @parms, $_) or die "Couldn't execute MPlayer: $!\n"; ($? >> 8) != 1 and die "Couldn't properly execute MPlayer, aborting!\n"; } # EOF