But does require the presence of an unzip binary in the current path which accepts those arguments used in your snippet - This doesn't make your code any more portable when compared to the usage of Archive::Zip, but does introduce some serious security concerns, such as if malicious commands were passed into the @zip_files array.
Thanks anyway, but I'd rather use Archive::Zip ...
use Archive::Zip qw/ :ERROR_CODES /; my $zip = Archive::Zip->new; my $status = $zip->read( $file ); if ( $status != AZ_OK ) { die "Error in reading zip file -- Return status ", $status; } foreach my $member ( $zip->members ) { next unless $member->fileName =~ /\.out$/; $zip->extractMember( $member ); }
In reply to Re: Reading the Zipped Files.
by Anonymous Monk
in thread Reading the Zipped Files.
by artist
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |