SoXで音声データのフェードアウト
なんで終端からの時間を指定できるようになってないんだろね…
#!perl # usage: perl fadeout.pl in.wav out.wav 5 my($infile,$outfile,$fadeout_len)~@ARGV; my $a = `sox "$infile" -t wav NUL -V 2>&1 |grep Duration`; $a =~ /(\d+)\s*samples/ or die "cannot find infile sample count\n"; my $samples = $1; `sox "$infile" "outfile" fade l 0 ${samples}s $fadeout_len`;