Help for this page

Select Code to Download


  1. or download this
        use strict;
        use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
    ...
           
        my @files = $zip->memberNames();
        print join("\n" , @files) ."\n";
    
  2. or download this
    at /usr/share/perl5/Archive/Zip.pm line 477.  
         Archive::Zip::_readSignature('IO::File=GLOB(0xb75ae8)',  
    ...
    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.