gen_thumb.pl

#!/usr/bin/env perl
use 5.010;

my $path = '.';

my @types=qw( mov mp4 avi mkv m4v xvid divx wmv mpg mpeg );

my @files = `find $path`;
chomp(@files);

my @videos = grep{ my $f=$_; scalar(grep{ $f =~ /\.$_$/; } @types);  }@files;

foreach my $v (@videos){
    say "$v";
    if( $v =~ /\.[^\.]+$/ ){
        my $fname = $`;
        my $jpg = $fname.'.jpg';
        if( -e $jpg ){
            say 'thumb exists.';
        }
        else{
            say 'make thumb';
            system qq(ffmpegthumbnailer -i '$v' -o '$jpg' -s160 -q10);
            say 'done';
        }
    }
    else{
        say "ERROR";
    }
}