Archive::Extract::Libarchive - A generic archive extracting mechanism (using libarchive)
use Archive::Extract::Libarchive; # build an Archive::Extract object my $ae = Archive::Extract::Libarchive->new( archive => 'foo.tgz' ); # extract to cwd() my $ok = $ae->extract; # extract to /tmp my $ok = $ae->extract( to => '/tmp' ); # what if something went wrong? my $ok = $ae->extract or die $ae->error; # files from the archive my $files = $ae->files; # dir that was extracted to my $outdir = $ae->extract_path; # absolute path to the archive you provided $ae->archive;
Archive::Extract is a generic archive extraction mechanism. This module has a similar interface to Archive::Extract, but instead of using Perl modules and external commands, it uses the libarchive C libary (http://code.google.com/p/libarchive/), which you must have installed (libarchive-dev package for Debian/Ubuntu). It supports many different archive formats and compression algorithms and is fast.
For example, unpacking the whole of CPAN using this module is about ten times faster than using Archive::Extract.
$ae = Archive::Extract::Libarchive->new(archive => '/path/to/archive')
Creates a new
Archive::Extract::Libarchive object based on the archive file you passed it.
$ae->extract( [to => '/output/path'] )
Extracts the archive represented by the
Archive::Extract::Libarchive object to the path of your choice as specified by the
to argument. Defaults to
It will return true on success, and false on failure.
On success, it will also set the follow attributes in the object:
This is the directory that the files where extracted to.
This is an array ref with the paths of all the files in the archive, relative to the
toargument you specified. To get the full path to an extracted file, you would use:
File::Spec->catfile( $to, $ae->files-> );
Returns the last encountered error as string.
This is the directory the archive got extracted to. See
extract() for details.
This is an array ref holding all the paths from the archive. See
extract() for details.
This is the full path to the archive file represented by this
Leon Brocard <email@example.com>
Copyright (C) 2011, Leon Brocard.
This module is free software; you can redistribute it or modify it under the same terms as Perl itself.