トップ «前の日(03-07) 最新 次の日(03-09)» 追記

ゆ〜ぞ〜の備忘録

コメントスパム対策のため、特定メールアドレスの入った突っ込みをお断りしています。

2005|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|03|04|05|06|07|08|09|10|11|12|
2010|01|03|
2036|01|

2006-03-08 [J] [PC] 動画圧縮の効率化

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の面倒臭さはどうにかならんものか。