flvを勝手にmp3に変換してもらうんです。by the ffmpeg

osx perl

いつもする事は自動化しないと行けない！
よくわかんないけどいいのかなこれで。

#!/usr/bin/perl -w                                                                                                                                                                                        
use strict;

chdir "/Volumes/DCG001/Movies/flv2mp";

my @srcfile;

foreach (<*>){
　　push @srcfile, $_
　　　if -f $_ and $_ =~  /.flv/;
}


&encode(@srcfile);


sub encode {
　　foreach(@_){
　　　　my $file = $_;
　　　　(my $filename = $file)=~ s/.flv$//;
　　　　rename "./$file", "./source.flv"
　　　　　or die "cannot rename $file false:$!";
　　　　system "ffmpeg -i source.flv  -acodec copy ./mp3/source.mp3";
　　　　rename "./mp3/source.mp3","./mp3/$filename.mp3";
　　　　rename "./source.flv", "./$filename.flv";
　　}
}

あとはcronでまわしまくる。
コレだと既にある奴も再処理するヨス。
リソースは大切に！