寝ながらためこんだ動画をmplayerで見るのに書いたスクリプト。

#!/usr/bin/perl

if ( $#ARGV < 0 )
{
    &help;
    exit;
}

($shift, $num, @file) = @ARGV;

if ( $shift eq '-s' || $shift eq '--shift' )
{
    splice(@file, 0, $num - 1);
}
else
{
    unshift(@file, $num);
    unshift(@file, $shift);
}

foreach $file(@file)
{
	chomp $file;
	system("mplayer -fs \"$file\"");
}

sub help
{
    print <<"EOF";
Usage: mplaylister [-s|--shift num] file1 file2 file3 .....
       cat listfile | xargs mplaylister
       if you want start 10th file from playlist:
             cat listfile | xargs mplaylister -s 10
EOF
}

プレイリスト機能なんてこの程度で充分やね。

(@223)