Deseo hacer esto:
Folder
|
+- subfolder
|
+- Musica
El problema es que me descomprime todo en el mismo folder no importando cuantos subfolders hay adentro del .ZIP
Codigo
Código:
#!/usr/bin/perl -wT use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use Archive::Zip; my $zipname = 'temp.zip'; my $destinationDirectory = "../musica/" . $folder; my $zip = Archive::Zip->new($zipname); foreach my $member ($zip->members) { next if $member->isDirectory; (my $extractName = $member->fileName) =~ s{.*/}{}; $member->extractToFileNamed( "$destinationDirectory/$extractName"); }