An archive extracting mechanism (using libarchive)
use Archive::Libarchive::Extract;
my $extract = Archive::Libarchive::Extract->new( filename => 'archive.tar' );
$extract->extract;
This class provides a simple interface for extracting archives using libarchive
. Although it provides similar
functionality to Archive::Extract and Archive::Extract::Libarchive it intentionally does not provide a
compatible interface. In particular it tends to throw exceptions instead tracking errors as a property.
It also supports some unique features of the various classes that use the "Extract" style interface:
-
Many Many formats
Tar, Zip, RAR, ISO 9660 images, gzip, bzip2, etc.
-
Zips with encrypted entries
You can specify the passphrase or a passphrase callback with the constructor
-
Multi-file RAR archives
If filename is an array reference it will be assumed to be a list of filenames representing a single multi-file archive.
my $extract = Archive::Libarchive::Extract->new(%options);
This creates a new instance of the Extract object. One of the "filename" or "memory" option
-
filename
my $extract = Archive::Libarchive::Extract->new( filename => $filename );
The filename of the archive to read from.
-
memory
[version 0.03]
my $peek = Archive::Libarchive::Peek->new( memory => \$content );
A reference to the memory region containing the archive. Passing in a plain scalar will throw an exception.
-
passphrase
my $extract = Archive::Libarchive::Extract->new( passphrase => $passphrase ); my $extract = Archive::Libarchive::Extract->new( passphrase => sub { ... return $passphrase; });
This option is the passphrase for encrypted zip entries, or a callback which will return the passphrase.
-
entry
my $extract = Archive::Libarchive::Extract->new( entry => sub ($e) { ... return $bool; });
This callback will be called for each entry in the archive, and will pass in the entry metadata via
$e
which is a Archive::Libarchive::Entry instance. If the callback returns a true value, then the entry will be extracted, otherwise it will be skipped.
This is the archive filename for the Extract object. This will be undef
for in-memory archives.
The full path location the entries were extracted to. If "extract" hasn't been called yet,
then this will be undef
my @list = $extract->entry_list;
The list of entry pathnames that were extracted.
$extract->extract(%options);
This method extracts the entries from the archive. By default
it places them relative to the current working directory. If
you provide the to
option it will place them there instead.
This method will throw an exception on error.
-
to
The directory path to place the extracted entries. Will be created if possible/necessary.
-
The original!
-
Another implementation that also relies on
libarchive
, but doesn't support the file type in iterate mode, encrypted zip entries, or multi-file RAR archives. -
An interface for peeking into archives without extracting them to the local filesystem.
-
A lower-level interface to
libarchive
which can be used to read/extract and create archives of various formats.
Graham Ollis plicease@cpan.org
This software is copyright (c) 2021 by Graham Ollis.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.