Hallo, Am Sun, 01 Aug 2004, Michael Wendt schrieb: ==== #! /usr/bin/perl -w ### WMA TO OGG CONVERTER ### Start with perl wma2ogg.pl my $dir=`pwd`; chomp($dir); opendir(checkdir,"$dir"); while ($file=readdir(checkdir)) { my $orig_file = $file; if ($orig_file !~ /\.wma$/i) { next; }; print "Checking file: $orig_file\n"; my $new_wav_file=$orig_file; $new_wav_file=~s/\.wma/\.wav/i; my $new_ogg_file=$orig_file; $new_mp3_file=~s/\.wma/\.ogg/i; my $convert_to_wav="mplayer \"./$orig_file\" -ao pcm -aofile \"./$new_wav_file \""; my $convert_to_ogg="oggenc -b 160 -o \"./$new_ogg_file\" \"./$new_wav_file\""; my $remove_wav="rm -rf \"./$new_wav_file\""; my $cmd; print "EXEC 1: $convert_to_wav\n"; $cmd=`$convert_to_wav`; print "EXEC 2: $convert_to_ogg\n"; $cmd=`$convert_to_ogg`; print "REMOVE WAV: $remove_wav\n"; $cmd=`$remove_wav`; print "\n\n"; } print "Fertig."; ====
Wie kann ich das Skript so verändern, dass ich ogg Dateien, etwa mit -q8, erhalte?
s.o. Das script ist aber nicht sonderlich "sauber"... -dnh -- 101: Emacs Ich habe ja auch nie bezweifelt, daß emacs ein tolles Betriebssystem ist. Aber um mit Linux oder Windows konkurrieren zu können, fehlt ihm ein vernünftiger Editor. (Kai Fett)