使用Perl模块IO :: Uncompress :: AnyUncompress

Question

我希望使用Perl模块IO :: Uncompress :: AnyUncompress，这里记录了：http://perldoc.perl.org/IO/Uncompress/AnyUncompress.html。

但是，这个文档似乎避免了压缩存档（.zip，.7z）包含压缩文件树的事实。我只想从存档中提取单个文件，而不是完整存档，例如：

my $archivename = 'archive.7z';
my $filetoextract = './bin/file.lib';

my $archive = new IO::Uncompress::AnyUncompress($archivename);
my $filecontent = $archive->extract($filetoextract);

但是，API似乎没有这样的extract()功能，也不会返回存档中包含的文件列表的函数。

我错过了什么吗？

Answer 1

IO::Uncompress::AnyUncompress仅处理单个压缩字节流。您需要一个类似Archive::Any，Archive::Any::Lite或Archive::Libarchive::XS的模块。