I am using following code to extract the files and directories from a zip file.
$filename = "somefile.zip"; $dest_dir = "c:/somedir"; my $zip = Archive::Zip->new(); local $Archive::Zip::UNICODE = 1; unless ( $zip->read($filename) == AZ_OK ) { die "Error Reading Zip File !"; } my @members = $zip->members(); foreach (@members){ $zip->extractMemberWithoutPaths( $_, "$dest_dir\\$_"); }
The problem i am facing is that it is unable to extract the zero size file(if any) which exists in at any directory level. Can somebody please share some references here? I am using "Straberry perl" on Windows 2012.
In reply to Problem extracting zero size files from zip. by aksjain
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |