Listing contents and stats of ZIP archive contents

[cbullard]

I am trying to list out the names and stats of the contents of a ZIP file. I've tried working with both Archive::Extract and IO::Uncompress with no success. I've even tried using this code straight from the PerlMonks Archives:

#! c:\perl\bin\perl
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
if (scalar(@ARGV) < 2){die "Zip.pl\nAuthor:Include\nUsage: zip.pl <c=c
+reate, x=extract> <filename> <files>\n";};
my $opt = shift(@ARGV);
my $ofile = shift(@ARGV);
# extract a zip file
if($opt=~/x/i){
print "Zip.pl\nAuthor:Include\n";
print "Extracting $ofile...\n";
$zip = Archive::Zip->new();
die 'Error reading zip file.' if $zip->read( $ofile ) != AZ_OK;
my @members = $zip->members();
foreach $element(@members)
{
  print "$element\n";
  $zip->extractMember($element);
}
print "Done!\n";
}

but all I get for output is:
$ ./ziptest.pl X zipbatch/testzip.zip testout.txt
Zip.pl
Author:Include
Extracting zipbatch/testzip.zip...
Archive::Zip::ZipFileMember=HASH(0x1e68844)
Archive::Zip::ZipFileMember=HASH(0x1e68e14)
Archive::Zip::ZipFileMember=HASH(0x1e68fe4)
Archive::Zip::ZipFileMember=HASH(0x1a4890c)
Done!

How can I access the list of files inside the zip archive and the stats for them (size, mod date, etc)?

Thank you!

[ww]

The output you show means you're printing a hashref rather than a simple array element. See "References" in the Tutorials Section here for guidance on how to print the hash pointed to by the hashref.

You may also profit by carefully reading the documentation of Archive::Zip for related info.

[NetWallah]

You probably need:

 print $element->fileName(), " Mod Time: " . scalar( localtime( $eleme
+nt->lastModTime() ) ), 
   " Size=" . $element->uncompressedSize() , "\n";

[LanX]

Your posting seems to be wrapped within the signature div.

It's barely readable...better correct it!