在内存中解压缩bzip2包

Question

我在内存中解压缩.bz包有问题。我的脚本用于下载gzip包，它在内存中解压缩并将其输出发送到content（）。

以前使用gzip工作但不幸的是它不了解bzip2包：

$mech = WWW::Mechanize->new;
$mech->get("$url/pkg.gz");
$packages = Compress::Zlib::memGunzip($mech->content())

我试图寻找等效的压缩包而没有成功。我如何使用bzip2包实现这个简单的脚本？

Answer 1

use IO::Compress::Bunzip2 qw( bunzip2 $Bunzip2Error );

bunzip2(\$mech->content() => \my $packages)
   or die("bunzip2 failed: $Bunzip2Error\n");