Convertir des fichiers WMA en MP3

Comment faire pour convertir facilement des WMA en MP3 sous Linux

Pré requis logiciels

Les logiciels suivants doivent etre presents :

• perl
• mplayer
• lame

Le script

#! /usr/bin/perl

### WMA TO MP3 CONVERTER

$dir=`pwd`;

## READ EACH FILE, IF WMA, MAKE A "COPY" TO WAV THEN TO MP3 THEN DELETE WMA

chop($dir);

opendir(checkdir,"$dir");

while ($file=readdir(checkdir)) {

$orig_file=$file;

if ($orig_file !~ /\\.wma$/i) {next};

print "Checking file: $orig_file

";

$new_wav_file=$orig_file;$new_wav_file=~s/\\.wma/\\.wav/;
$new_mp3_file=$orig_file;$new_mp3_file=~s/\\.wma/\\.mp3/;

$convert_to_wav="mplayer \\"./$orig_file\\" -ao pcm -aofile \\"./$new_wav_file\\"";
$convert_to_mp3="lame -h \\"./$new_wav_file\\" \\"./$new_mp3_file\\"";
$remove_wav="rm -rf \\"./$new_wav_file\\"";

print "EXEC 1: $convert_to_wav

";

$cmd=`$convert_to_wav`;
print "EXEC 2: $convert_to_mp3

";

$cmd=`$convert_to_mp3`;
print "REMOVE WAV: $remove_wav

";

$cmd=`$remove_wav`;
print "

";

}

print "Done.";