problem in extracting the zip files

[avik1612]

hi,

I have created a script in perl to extract n number of zip files to a particular destination after creating the folder of the zip file.

It is extracting . But when the zip file has subdirectories or folders inside it it ignores that and eztracts the whole contents without making folders

what shout it do I am using activeperl in Windows XP

i have pasted the code

# Script to unzip the zip files to a particular destination creating the folder with the name of zip file
 
use Archive::Zip;
use Archive::Tar;
use File::Copy;
use File::Find;
use File::Basename;
 
my @ext;
 
find(\&search, "D:/aaa");
 
sub search
 {
     if ((/\.zip$/) )
     {  
        push @ext, $File::Find::name;
        #print "@ext\n";    
     }
 }
 
my @name1;
foreach my $fname(@ext)
{
my ($name, $path, $suffix) = fileparse($fname, '\.[^\.]*');
 
my $n = "D:/a/";
my $name1 = join("/",$n,$name);
mkdir $name1,0755;
 
print "\n\n Made Folder ";
print STDOUT $name, "\n";
 
my $zipname = $fname;
 
my $destinationDirectory = $name1;
 
my $zip = Archive::Zip->new($zipname);
foreach my $member ($zip->members)
{
    next if $member->isDirectory;
    (my $extractName = $member->fileName) =~ s{.*/}{};
    $member->extractToFileNamed("$destinationDirectory/$extractName");
}
print "\n Finished Extraction";
}
 

Thanks in Advance
Avi

[KevinADC]

looks like your code is skipping directories:

next if $member->isDirectory;

remove or rem the above line and try again.

[avik1612]

looks like your code is skipping directories:

next if $member->isDirectory;

remove or rem the above line and try again.

hi,

i tried by removing the line but it is still giving the same problem


what should i do

Thanks
Avi