Yusukebe::Tech

こんな感じでできた。なんとなく-deinterlaceをいれたかった。もすこしオプションを工夫しよ。

#!/usr/bin/perl

use strict;
use FFmpeg::Command;

my $ffmpeg = FFmpeg::Command->new('/usr/local/bin/ffmpeg');
my $input_file = "input.avi";
my $output_file = "output.flv";

$ffmpeg->input_file($input_file);
$ffmpeg->output_file($output_file);
$ffmpeg->options(
                                 '-y',
                                 '-f' => 'flv',
                                 '-s' => '470x390',
                                 '-ar' => '44100',
                                 '-deinterlace',
                         );

my $result = $ffmpeg->exec();
print  $ffmpeg->errstr unless $result;