blob: 9e69501d5d2bf43d3a2d452b62d2775b4d94dc2c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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
|
