在内存中解压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");