iclips - loop-sources.pl

#!/usr/bin/perl

use strict;
use warnings;

while (1) {

    foreach my $nbr qw( 001 002 ) {

        my ($file) = glob("tmp-iclips-$nbr-*.avi");

        if ( not $file ) {
            print "Waiting for a file to play to become available\n";
            next;
        }    # if not file

        my $cmd =
            "/usr/local/bin/mplayer -ss "
          . ( time - substr( $file, 15, 10 ) - 1 )
          . " -ao oss -vo xv -nofs -nocache $file";

        qx{$cmd};

    };    # foreach

    sleep 1;

};    # while