note
grep
Use the [href://http://search.cpan.org/~adamk/Archive-Zip-1.26/lib/Archive/Zip.pm#Zip_Archive_Accessors|members] method to get each of the zip members one at a time. Then use [href://http://search.cpan.org/~adamk/Archive-Zip-1.26/lib/Archive/Zip.pm#Zip_Archive_Member_Operations|extractMember] to extract and rename.
<code>
use warnings;
use strict;
use Archive::Zip;
my $zip = Archive::Zip->new('foo.zip');
my $file_counter = 0;
foreach my $member ( $zip->members ) {
my $file_name = $member->fileName;
my $extracted_file_name = 'file-'. $file_counter++ . '.foo';
print "extracting $file_name as $extracted_file_name\n";
$zip->extractMember($member, $extracted_file_name);
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-133383">
[id://133383|grep]<br \>
<tt>One dead unjugged rabbit fish later...</tt>
</div></div>
764550
764550