Funktionen für Dateihandling gesucht - #135416 (Allgemeines zu Perl)

kami

2010-03-29 09:18

User since
2010-03-17
92 Artikel
BenutzerIn
[default_avatar]

Das ist nett danke.

So nun nur noch ein letztes Problem dann ist das Skript fertig.

Wenn ich Files extrahieren will dann geht mir immer der richtige Pfad durch Leerzeichen verloren:

Code (perl): (dl )

$rar_check=File::Spec->join($verzeichnis, '*.rar');
                                                        
if(bsd_glob($rar_check))
{  for $source_path (bsd_glob($rar_check))  
        {
                if(-f $source_path)
                {   
                        (undef,undef,$file) = File::Spec->splitpath( $source_path );
                        my $rar = Archive::Rar->new(-archive => bsd_glob($source_path) );
                        $rar->Extract( -files => $finaldir, -quiet => 1 );   
                        print "Das file ".$source_path." wird nach ".$finaldir." entpackt.\n";
                }
        }
                                                                                                
}

Vielen Dank.

Gruß kami