Archive::Any - Single interface to deal with file archives.
use Archive::Any; my $archive = Archive::Any->new( $archive_file ); my @files = $archive->files; $archive->extract; my $type = $archive->type; $archive->is_impolite; $archive->is_naughty;
This module is a single interface for manipulating different archive formats. Tarballs, zip files, etc.
my $archive = Archive::Any->new( $archive_file ); my $archive = Archive::Any->new( $archive_file, $type );
$type is optional. It lets you force the file type in case Archive::Any can't figure it out.
$archive->extract; $archive->extract( $directory );
Extracts the files in the archive to the given $directory. If no $directory is given, it will go into the current working directory.
my @file = $archive->files;
A list of files in the archive.
my $mime_type = $archive->mime_type();
Returns the mime type of the archive.
my $is_impolite = $archive->is_impolite;
Checks to see if this archive is going to unpack into the current directory rather than create its own.
my $is_naughty = $archive->is_naughty;
Checks to see if this archive is going to unpack outside the current directory.
my $type = $archive->type;
Returns the type of archive. This method is provided for backwards compatibility in the Tar and Zip plugins and will be going away soon in favor of
For detailed information on writing plugins to work with Archive::Any, please see the pod documentation for Archive::Any::Plugin.
You can find documentation for this module with the perldoc command.
You can also look for information at:
Michael G Schwern (author emeritus)
Olaf Alders (current maintainer)
COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Olaf Alders.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.