File existance check failue after read using Archive::Zip

msr

Hi,

I am able to extract the content from Archive zip using Archive::Zip. After extraction, trying to check file existance as shown below code. It's perfectly working in Windows.But in UNIX env, file exists check failing. Not sure what could be the issue in UNIX env. Please suggest me if you have any clue on the issue.

my $srcZip = Archive::Zip->new();
my $status = $srcZip->read($archivePath);
my @members = $srcZip->members;
foreach my $member (@members) {
my $filename = $member->fileName;
$logger->info("filename$filename\n\n");
if (-e $filename && $filename !~ /\/$/){

Do some thing;
}
}


Thanks in advance,
MSR.

Adam Stoller

Did you create the zip file on the Unix system, or did you create it on a Windows system, copy it to the Unix system and then try running this code?

I ask because, if I read the documentation correctly, read() retrieves the information from the zip file but does not write the file out to the file system - and hence the file could exist in the zip file but not exist on the file system.

I don't see anything in the code you posted that shows the use of the extract() method.