3gp分割スクリプト

#!/usr/bin/perl

$infile = $ARGV[0];
$outstr = $ARGV[1];
$ss = 0;
$durations = 300;
$count = 1;


$outfile = $outstr."_".sprintf("%02d",$count).".3gp";
$com = "ffmpeg -y -i $infile -s 240x176 -f 3gp -vcodec mpeg4 -b 200 -r 14.99 -ac
odec aac -ab 32 -ar 11025 -vol 128 -ss $ss -t $durations $outfile";

while(1){
system("$com");
@fileinfo = stat($outfile);
if($fileinfo[7] < 145){
unlink($outfile);
die("finish !!\n");
}
$ss = $durations*$count-1;
$count ++;
$outfile = $outstr."_".sprintf("%02d",$count).".3gp";
$com = "ffmpeg -y -i $infile -s 240x176 -f 3gp -vcodec mpeg4 -b 200 -r 14.99 -
acodec aac -ab 32 -ar 11025 -vol 128 -ss $ss -t $durations $outfile";
}
mpegto3gp.plとか適当に名前をつけて保存。

使い方
mpegtogp.pl 入力ファイル 出力名

例
mpegto3gp.pl hage.mpg hoge
でhage.mpgをdurationsの秒数ごとにhoge_01.3gp、hoge_02.3gp....と分割。

(読み飛ばしがはいるので)ちょっと時間がかかりすぎだけどまあいいか。
mp3も3gpにできるからミュージックプレーヤーはまだ提供されてないけど聞けるようになった。
でも早送りとかができない。中途半端や。