diff options
author | atmos4 <atmos4@b3059339-0415-0410-9bf9-f77b7e298cf2> | 2001-07-24 11:46:22 +0000 |
---|---|---|
committer | atmos4 <atmos4@b3059339-0415-0410-9bf9-f77b7e298cf2> | 2001-07-24 11:46:22 +0000 |
commit | a97005f7b13e38c0e72f707f9f102238cfeeccdf (patch) | |
tree | afce1f43c3d8a5dd08505a09da654a474e162cd7 /TOOLS/mp.pl | |
parent | 347ed4327c23e232dca2fe02f0b36188594d3984 (diff) | |
download | mpv-a97005f7b13e38c0e72f707f9f102238cfeeccdf.tar.bz2 mpv-a97005f7b13e38c0e72f707f9f102238cfeeccdf.tar.xz |
Perl multifile playback helper tool.
git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@1386 b3059339-0415-0410-9bf9-f77b7e298cf2
Diffstat (limited to 'TOOLS/mp.pl')
-rwxr-xr-x | TOOLS/mp.pl | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/TOOLS/mp.pl b/TOOLS/mp.pl new file mode 100755 index 0000000000..9e69501d5d --- /dev/null +++ b/TOOLS/mp.pl @@ -0,0 +1,51 @@ +#!/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 |