in reply to Re^2: Process Zip
in thread Process Zip

my $zip = new Archive::Zip;
$zip->read('Filename.zip');
# ..obviously you have this already.

my @memberNames = $zip->memberNames;
# @memberNames is now a list of the files in the zip Archive.

[download]

Now you iterate over that array like any other array.
Is that what you wanted?

After this, of course, you can extract the files by name (using the ->extractMember method) and delete the temporary file when you're done with it.

Replies are listed 'Best First'.
Re^4: Process Zip
by bitman (Scribe) on Dec 15, 2010 at 13:01 UTC
    Thank you all. I did go this route after all - 
    use Archive::Zip;
use Archive::Zip::MemberRead;
.....
my $zip = Archive::Zip->new($file);
my @ziplist=$zip->memberNames();
.....
foreach my $afile (@ziplist)
{
    my $member = $zip->memberNamed($afile);

    my $fh=$member->readFileHandle();
    while (my $line = $fh->getline()) {.... etc ....}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom