Public feed #603038

Jemand

public text v1 · immutable
Raw Edit
·published 2007-07-04 13:52 UTC
rendered paste body
use strict;
use LWP::Simple;
use Archive::Zip;

my $zip = Archive::Zip->new( "/tmp/foobarbaz/epgzip" );
my @xmlfile = $zip->membersMatching('.*\.xml');
print @xmlfile;


----------------

Running the Script:

laga@host:> perl test
Archive::Zip::ZipFileMember=HASH(0x84630bc)