in reply to changing filenames using Archive::Zip

Use the members method to get each of the zip members one at a time. Then use extractMember to extract and rename.
use warnings; use strict; use Archive::Zip; my $zip = Archive::Zip->new(''); 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); }
One dead unjugged rabbit fish later...