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 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;
}