ゆ〜ぞ〜の備忘録

Perlで前処理

MTV2000Plusで録画した m2p ファイルを d2vファイルと wavファイルに分割・変換します。以下の Perl スクリプトを mkd2v.pl とか名前を付けて保存し、

c:\>perl mkd2v.pl e:\*.m2p

とやれば一気に分割・変換可能。

$dgIdxProg = 'c:\videocnv\dgmpgdec\DGIndex';
$dgIdxOption = '-IA=2 -FO=2 -TN=1 -OM=1 -hide -exit';
#$dgIdxOption = '-IA=2 -FO=2 -TN=2,5 -OM=2 -minimize -exit';


$lameProg = 'c:\videocnv\lame';
$lameOption = '-h --mp2input --decode';


{
  my @flist = glob($ARGV[0]);


  my ($dgIdx, $lame, $file, $file2);
  foreach $file (@flist){
    $file =~ s/\.[^\.]+$//;
    $file2 = "$file T01 DELAY 0ms";


    $dgIdx = "$dgIdxProg $dgIdxOption -IF=[$file\.m2p] -OF=[$file" . "]";
    $lame = "$lameProg $lameOption \"$file2\.mpa\" \"$file2\.wav\"";


    # .m2p -> (DGMPGDec) -> .d2v .mpa
    if (! -f "$file\.d2v"){ system($dgIdx); }
    # .mpa -> (lame) -> .wav
    if (! -f "$file2\.wav"){ system($lame); }
    unlink("$file2\.mpa");
  }
}

あとは AviUtil で適当に処理してます。AviSynth とかに移行してもいいのですが、録画している数も少ないからとりあえず今のままで。
とはいえ、2-passの面倒臭さはどうにかならんものか。