在内存中解压缩bzip2包

Question

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

这是用gzip前工作但遗憾的是它不理解的bzip2包：

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

我试图寻找相当于compresspackage没有成功。我如何用bzip2包实现这个简单的脚本？

Answer 1

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

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