Hi @ all,habe ein Problem.
Ich möchte ein *.zip Archive entpacken in ein verzeichnis. Dieses Verzeichnis will ich angeben.
my $pfad = <STDIN>;
print $pfad;
if($pfad){
my $tempdir = mkdir(Temp);
my $zip = Archive::Zip->new( $pfad );
my @members = $zip->members(); foreach $elem (@members){
print "$elem\n";
$zip->extractMember($elem);
}
ungefähr so.
aber der mekert immer, dadurch das $pfad ein String ist. Hat da jemand eine Lösung für mich bitte.
mfg
wanjag
Datum: 30.05.2006-17:54
