#!/usr/bin/perl

require "jpeg_title.pm";
@list = `ls *.mpg`;

foreach $line (@list){
    $line =~ s/[\r\n]//g;
    `ffmpeg -vframes 1 -t 0:0:15 -i $line $line%d.jpg 2>&1 `;

    $targetfile = $line."1.jpg";
    $destfile   = $targetfile;
    $destfile   =~ s/mpg1\.// ;
#    system("mv $targetfile $destfile");

    @info = `nkf -e $line.txt`;
    $title = $info[2];
    $title =~ m/\d+\(([^\)]+)\)/;

    jpeg_title::writejpeg($targetfile,$destfile,$1);
    `rm $targetfile`;

#   system("ffmpeg -vframes 1 -t 0:0:15 -i 060625_2100_10681.mpg out%d.jpg");
}