perl - 使用 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 .