如何使用 LWP::UserAgent 接受 gzip 压缩内容？

Question

我正在使用 Perl 的 LWP::UserAgent 通过 Web 获取一些页面，并且希望尽可能礼貌。 默认情况下，LWP::UserAgent 不会通过 gzip 无缝处理压缩内容。 有没有一种简单的方法可以做到这一点，为每个人节省一些带宽？

Answer 1

LWP 内置了此功能，这要归功于 HTTP::Message。 但它有点隐藏。

首先确保您已安装 Compress::Zlib你可以处理gzip。 HTTP::Message::decodable () 将根据您已安装的模块输出允许的编码列表； 在标量上下文中，此输出采用逗号分隔的字符串形式，您可以将其与“Accept-Encoding”HTTP 标头一起使用，该标头 LWP 要求您添加到 HTTP::Request-s 自己。 （在我的系统上，安装了 Compress::Zlib ，列表为“gzip、x-gzip、deflate”。）

当您的 HTTP::Response 返回，请务必使用 $response->decoded_content 访问内容 而不是 $response->content。

在 LWP::UserAgent 中，所有这些都像this：

my $ua = LWP::UserAgent->new;
my $can_accept = HTTP::Message::decodable;
my $response = $ua->get('http://stackoverflow.com/feeds', 
    'Accept-Encoding' => $can_accept,
);
print $response->decoded_content;

这也会将文本解码为 Perl 的 unicode 字符串。 如果您仅想要LWP解压缩响应，而不是弄乱文本，这样做：

print $response->decoded_content(charset => 'none');