Script wma vers mp3

Shaika-Dzari -  
asevere Messages postés 13521 Statut Webmaster -
Bonjour!
Un ami m'a guidé vers un script qui convertit les wma en mp3.
J'ai une tonne de wma sur mon disque XP et comme maintenant j'ai inversé mes disque dur et que je suis à 100% sur Mdk, j'aimerais beaucoup les convertir et utiliser avec xmms.
Voici le script et l'erreur qui se produit quand je l'éxécute.
Je vous serai très reconnaissant d'y jeter un coup d'oeil et de peut-être m'aider..

#! /usr/bin/perl

### WMA TO MP3 CONVERTER BY Seraphyn
### Start with perl wma2mp3.pl

$dir=`pwd`;

chop($dir);

opendir(checkdir,"$dir");

while ($file=readdir(checkdir)) {

$orig_file=$file;

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

print "Checking file: $orig_file\n";

$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\n";
$cmd=`$convert_to_wav`;
print "EXEC 2: $convert_to_mp3\n";
$cmd=`$convert_to_mp3`;
print "REMOVE WAV: $remove_wav\n";
$cmd=`$remove_wav`;
print "\n\n";

}

print "Fertig.";

L'erreur quand je l'éxécute:

[shaika-dzari@localhost Livecannibalism]$ /home/shaika-dzari/wma2mp3.pl
/home/shaika-dzari/wma2mp3.pl: line 6: =/home/shaika-dzari/test/Livecannibalism: No such file or directory
/home/shaika-dzari/wma2mp3.pl: line 8: syntax error near unexpected token `$dir'
/home/shaika-dzari/wma2mp3.pl: line 8: `chop($dir);'
[shaika-dzari@localhost Livecannibalism]$

Livecannibalism contient une douzaine de wma.
J'ai fais un chmod +x wma2mp3.pl avant....

Je dois avouer que je n'y connais pas grand chose en script...
Je vous remercie beaucoup et @+ les linuxiens
A voir également:

1 réponse

asevere Messages postés 13521 Statut Webmaster 426
 
Salut,

Aprés un test rapide, je ne vois que deux solutions:
-Tu n'as pas d'interpréteur perl.
-Ton interpreteur ne se trouve pas dans /usr/bin :)

Je pencherai pus pour la première solution, dans ce cas là,
vu que tu es sous Mandrake, un simple urpmi perl devrait suffir.

@++
 ♫ Il suffirait de presque rien...
0