skriptfehler wma zu ogg

[Tuxist]

#! /usr/bin/perl
$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_ogg_file=$orig_file;$new_ogg_file=~s/\.wma/\.ogg/;
$convert_to_wav="mplayer \"./$orig_file\" -ao pcm -aofile \"./$new_wav_file\"";
$convert_to_ogg="oggenc -q 4 \"./$new_wav_file\" \"./$new_ogg_file\"";
$remove_wav="rm -rf \"./$new_wav_file\"";
$remove_wma="rm -rf \"./$orig_file\"";
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 "REMOVE wma: $remove_wma\n";
$cmd=`$remove_wma`;
print "\n\n";
}
print "ALLE CONVETIERT.";

bekomme immer nur eine leere .ogg datei :(

[fork]

Ist die WAV-Datei auch leer?
Irgendwelche Meldungen von mplayer oder oggenc?
Funktioniert es wenn Du die Befehle genau wie im Programm manuell ausführst?

Verwende bitte die [ code ] - Tags (http://www.mrunix.de/forums/misc.php?do=bbcode#code) für Quellcode, Monospace laesst sich leichter lesen.

[Tuxist]

die wav datei ist schon leer

[Tuxist]

habe ich zum laufen bekommen

[bash_azubi]

Und wie sieht deine Lösung nun aus?

[Tuxist]

#! /usr/bin/perl



$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_ogg_file=$orig_file;$new_ogg_file=~s/\.wma/\.ogg/;

$convert_to_wav="mplayer \"./$orig_file\" -ao pcm -aofile \"./$new_wav_file\"";
$convert_to_ogg="oggenc -q5 \"./$new_wav_file\" \"./$new_ogg_file\"";
$remove_wav="rm -rf \"./$new_wav_file\"";
$remove_wma="rm -rf \"./$orig_file\"";

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 "REMOVE WMA: $remove_wma\n";
$cmd=`$remove_wma`;
print "\n\n";

}
use Gtk;
use strict;

set_locale Gtk;

my $false = 0;
my $true = 1;

my $window = new Gtk::Window( "toplevel" );
my $button = new Gtk::Button( "Fertig" );

$window->signal_connect( "delete_event", \&CloseAppWindow );
$button->signal_connect( "clicked", \&CloseAppWindow );


$button->show();


$window->border_width( 15 );
$window->add( $button );
$window->show();


main Gtk;


exit( 0 );

sub CloseAppWindow
{
Gtk->exit( 0 );
return $false;
}