Hi,
I have to create a script to read a zip files of a folder and then extract all those zip files to another destination
inside a folder created with the name of the zip file
for e.g if the zip file is in D:/ab.zip then it should be extracted to D:/a/ab where ab is the folder created with the
name of the zip file
I have pasted the code till how much i have tried what should i do further
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 "extn";
}
}
my name1;
foreach my $fname(ext)
{
my ($name, $path, $suffix) = fileparse($fname, '.[^.]*');
print STDOUT $name, "n";
}
print $name;
my $n= "D:/a/";
my $name1= join(";/",$n,$name);
print name1;
print $name;
mkdir $name1, 0755;
foreach my $in (ext)
{
open(IN, $in) || die " cannot open the file";
while(<IN>)
{
my $zipname = $_;
my $destinationDirectory = 'D:a';
my $zip = Archive::Zip->new($zipname);
foreach my $member ($zip->members)
{
next if $member->isDirectory;
(my $extractName = $member->fileName) =~ s{.*/}{};
$member->extractToFileNamed("$destinationDirectory/$extractName");
}
}
close(IN);
}
thanks in advance
avi
---------------------------------
5, 50, 500, 5000 - Store N number of mails in your inbox. Click here.
[Non-text portions of this message have been removed]
.
