I have a zip file created by the zip command in Ubuntu and updated by the Archive Manager included in Ubuntu.
I was trying to read the members of that archive using PERL as follows:
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();
unless ($zip->read('/home/mohamad/Desktop/VM/vm.zip') == AZ_OK ){
die 'read error';
}
my @files = $zip->memberNames();
print join("\n" , @files) ."\n";
This zip file is about 12 GB and I know that this module has the limitation of zipping no more than 4 GB, but I am trying to see if it can at least be used to access the members of a a +4GB archive.
here is the error I am getting:
at /usr/share/perl5/Archive/Zip.pm line 477.
Archive::Zip::_readSignature('IO::File=GLOB(0xb75ae8)',
'/home/mohamad/Desktop/VM/vm.zip') called at
/usr/share/perl5/Archive/Zip/Archive.pm line 603
Archive::Zip::Archive::readFromFileHandle('Archive::Zip::Archive=
+HASH(0xb75c20)',
'IO::File=GLOB(0xb75ae8)', '/home/mohamad/Desktop/VM/vm.zip') called
at /usr/share/perl5/Archive/Zip/Archive.pm line 548
Archive::Zip::Archive::read('Archive::Zip::Archive=HASH(0xb75c20)
+',
'/home/mohamad/Desktop/VM/vm.zip') called at test.pm line 6 read error
+ at test.pm line 7.
my questions are: