statgen.pl

#!/usr/bin/perl

@foo = <*.mkv>;

for ($i=0; $i < scalar(@foo); $i++)
{
    $fileName = $foo[$i];
    print "Processing $fileName\n";
    open (STATGEN, '>statgen.avs');
    print STATGEN 'LoadPlugin("C:\avsfilters\ffms2.dll")'."\n";
    print STATGEN 'LoadPlugin("C:\avsfilters\scxvid.dll")'."\n";
    print STATGEN 'FFVideoSource("' . $fileName . '", cache=false)'."\n";
    $fileName =~ s/\.mkv$/\.stats/;
    print STATGEN 'scxvid("' . $fileName . '")' . "\n";
    close(STATGEN);


    `avs2yuv statgen.avs -o NUL`;
}