lihao has asked for the wisdom of the Perl Monks concerning the following question:

The raw ZIP file(contains only one XML source file) is an attachment in an email which I can use Mail::POP3Client and MIME::Base64 to parse into a Perl string $zipdata. From here, I need to uncompress the attached $zipdata into XML flow, and use XML::Simple to parse the information I need. My questions are:

I know I can save $zipdata into a ZIP file and use Linux unzip to uncompress it and check the filename of XML document and then go back to Perl to parse the XML document. But how to handle all of these under Perl. Any suggestions?

Many thanks

lihao

  • Comment on Question: parse info in a Zipped XML document attached in an email

Replies are listed 'Best First'.
Re: Question: parse info in a Zipped XML document attached in an email
by GrandFather (Saint) on Nov 19, 2008 at 22:46 UTC

    You can use Archive::Zip's member manipulation to obtain a list of files:

    use strict;
use warnings;
use Archive::Zip;

my $zippath = 'wibble.zip';
my $zip = Archive::Zip->new ();

$zip->read ($zippath);
my @members = $zip->members();

print $_->fileName(), "\n" for @members;

    [download]
    Perl reduces RSI - it saves typing
[reply]
[d/l]
Re: Question: parse info in a Zipped XML document attached in an email
by ig (Vicar) on Nov 20, 2008 at 19:49 UTC
    do I have to use a temporary file??

    If your zip data is small enough to fit in memory, then you do not have to use a temporary file. Archive::Zip supports reading from a file handle, but the file handle must be seekable.

    Since perl 5.8.0, one can open a string. Unfortunately, the resulting file handle is not compatible with Archive::Zip.

    Read more... (1350 Bytes)

    But IO::String gives compatible file handles, so you can use something like the following.

    #!/usr/bin/perl
use strict;
use warnings;
use Archive::Zip;
use IO::String;

my $zipfile = "test.zip";
open(ZIP, "<", "$zipfile") or die "$zipfile: $!";
my $zipdata = do { local $/; <ZIP>; };
close(ZIP);

my $io = IO::String->new($zipdata);

my $zip = Archive::Zip->new();
my $status = $zip->readFromFileHandle($io);
print "\$status = $status\n";

foreach my $member ($zip->members()) {
    print "member: " . $member->fileName() . "\n";
}

close(ZIP);

    [download]
[reply]
[d/l]
[select]
[reply]

Back to Seekers of Perl Wisdom