WMA dosyalarını MP3 a çeviren bir skript

From Lapis Wiki

Bu makale NASIL bölümü serisinin bir parçasıdır

MasaÜstü • Donanım • Ağ • Dağıtımlar

Tarayıcılar• Programlama • Linux ve Oyunlar

WMA dosyalarını MP3 a çeviren bir skript

Aşağıdaki skirpt sayesinde bir dizin içinde bulunan bütün WMA dosyalarınızı MP3 formatına çevirebilirsiniz. Bunun için aşağıdaki skripti mesela wma2mp3.pl olarak kaydedin ve uygulamak istediğiniz, yani wma dosyalarınızın bulunduğu dizine kopyalayın ve

perl  wma2mp3.pl

komutunu verip çalıştırın. Bütün VMA dosyaları ilk önce WAV formatına çevrilir, sonra mp3 a çevrilir, sonra wav dosyası silinir, original wma ve oluşan dosyası aynı dizin altında bulunabilir.

wma2mp3.pl skripti:

****************************************
#! /usr/bin/perl
### WMA TO MP3 CONVERTER
###
$dir=`pwd`;
chop($dir);
opendir(checkdir,"$dir");
 
while ($file=readdir(checkdir)) {
$orig_file=$file;

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

print "Kontrol edilen dosya: $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 "Tamamlandi....";

*********************************

Not: Bu skriptin hatasız çalışabilmesi için sisteminizde Mplayer ve Lame programları kurulu olması gerekmektedir....