josh/files
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

convert-to-wav.pl

Browse Source
This commit is contained in:
Josh Holtrop 2010-09-19 20:40:32 -04:00
parent 977e37f327
commit 9db43728b1
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
convert-to-wav.pl Normal file
View File

@ -0,0 +1,11 @@
#!/usr/bin/perl -w
use strict;
foreach my $arg (@ARGV)
{
my $out = $arg;
$out =~ s/\....$//;
system('mplayer', '-vo', 'null', '-ao', "pcm:file=$out.wav", $arg);
}