Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^2: Process Zip

by bitman (Beadle)
on Dec 08, 2010 at 11:03 UTC ( #875995=note: print w/ replies, xml ) Need Help??


in reply to Re: Process Zip
in thread Process Zip

I want to process ALL files, one at a time, I don't know the file names.


Comment on Re^2: Process Zip
Re^3: Process Zip
by marto (Bishop) on Dec 08, 2010 at 11:18 UTC

    Archive::Extract may prove intersting, though you will have to extract all of the files, process and delete them.

    An alternative would be to investigate somehow extracting them to memory rather than to file. You'd need to do some research on this.

Re^3: Process Zip
by Demmy (Novice) on Dec 08, 2010 at 12:50 UTC
    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.

    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.

      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 ....}

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://875995]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2014-12-25 18:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (161 votes), past polls