Hi,

I have created a script to extarct a set of zip files in a particular folder to another destination . In the destination folder a folder would be created with the name of zip file and it would be extracted in that folder with the name of zip file.

It is working well but when the zip file have subdirectories i.e folder inside folder. It in ignore the subdirectory and extract the whole contents into a single folder

What is wrong with my code

i have pasted the code for ur reference

# 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 = 'D:\a';
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

already answered on the other forum:

next if $member->isDirectory;

i am new to this forum i did not get what suggestion you have given because the
next if $member->isDirectory;

I tried by removing this line but it is still giving the same problem
i have already used

Thanks
avi

This post has been edited by avik1612: 28 Sep, 2007 - 12:49 AM