Archive::Any::Create - Abstract API to create archives (tar.gz and zip)
use Archive::Any::Create; my $archive = Archive::Any::Create->new; $archive->container('foo'); # top-level directory $archive->add_file('bar.txt', $data); # foo/bar.txt $archive->add_file('bar/baz.txt', $data); # foo/bar/baz.txt $archive->write_file('foo.tar.gz'); $archive->write_file('foo.zip'); $archive->write_filehandle(\*STDOUT, 'tar.gz');
Archive::Any::Create is a wrapper module to create tar/tar.gz/zip files with a single easy-to-use API.
Create new Archive::Any::Create object. No parameters.
Specify a top-level directory (or folder) to contain multiple files. Not necessary but recommended to create a good-manner archive file.
Add a file that contains
$dataas its content.
$filecan be a file in the nested subdirectory.
Write an archive file named
$filename. This method is DWIMmy, in the sense that it automatically dispatches archiving module based on its filename. So,
$archive->write_file("foo.tar.gz")will create a tarball and
$archive->write_file("foo.zip")will create a zip file with the same contents.
Write an archive data stream into filehandle.
$formatis either, tar, tar.gz or zip.
Tatsuhiko Miyagawa email@example.com
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.