From 9db43728b196a90c722d1b0b9182818ce1a3ff00 Mon Sep 17 00:00:00 2001 From: Josh Holtrop Date: Sun, 19 Sep 2010 20:40:32 -0400 Subject: [PATCH] convert-to-wav.pl --- convert-to-wav.pl | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 convert-to-wav.pl diff --git a/convert-to-wav.pl b/convert-to-wav.pl new file mode 100644 index 0000000..3351a3b --- /dev/null +++ b/convert-to-wav.pl @@ -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); +} +