06/11/27 23:57:49 nTz58qNk0
俺は>>583のスクリプトを
for(@ARGV) {
my $src = $_;
を
while(<>) {
chop;
my $src = $_;
に変更して
$w->finish();
print "\n";
を
$w->finish();
undef $r, $w;
my $old = $src;
$old =~ s/\.wav$/_old\.wav/;
rename($src, $old);
rename($dst, $src);
print "\n";
に変更して
標準入力からwavファイルパスを読み込んで
旧ファイルを_old.wavリネームして
新ファイルを元ファイルにリネームする様に改造した。
これでwavファイルパス(1行=1ファイルパス)を記述したテキストを作成して
more hogehoge.txt | perl shift30.pl
とかで一括変換してます。
＃ファイルパスに日本語を含んでいる元ファイルが
＃開けないエラーがでるかもしれないけど…。
＃今のところ俺のところでは大丈夫。