#!/usr/bin/perl

use strict;
use warnings;
use Archive::Unzip::Burst 'unzip';

unzip("zipfile.zip", "targetdirectory");
[download]

I have to mark this with a big "Whoa there!"

I wrote Archive::Unzip::Burst because Archive::Zip was notoriously slow when starting a PAR packaged application. A::U::B is just a very, very thin wrapper around a copy of the infozip library and exposes only a tiny fraction of the features.

More problematic yet, the module is known to only build on Linux. There was some effort by people on the PAR mailing list to get it to work on Win32, but to no avail yet.

Note that infozip itself is portable, just the integration into the module build system was... challenging.

By the way: Patches welcome :)

Cheers,
Steffen

See extractTree from Archive::Zip

#!/usr/bin/perl 
use strict;
use warnings;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

my $zip = Archive::Zip->new();
unless ( $zip->read( 'files.txt.zip' ) == AZ_OK ) { 
    die 'read error';
}

# (Linux)         root  dest
$zip->extractTree( '', 'tmp/' );
[download]

hth,
PooLpi

As yet another alternative: Archive::Extract can do it in a very straightforward manner:

use Archive::Extract;

my $x = Archive::Extract->new( archive => ’archive.zip’ );
$x->extract( to => 'target/directory' ) or die $x->error;
[download]

It (Archive::Extract) has the bonus benefit of working for .tar.gz, .tar.bz2 and other archive types as well. In turn, it has some drawbacks in the current implementation that take the entire contents of the archive into memory (due to Archive::Tar and Compress::unLZMA, but that does not affect handling zip files, which can use Archive::Zip or the utility unzip under the hood.