我正在使用 Perl 的 LWP::UserAgent
通过 Web 获取一些页面。并希望尽可能有礼貌。默认情况下,LWP::UserAgent
不能通过 gzip 无缝处理压缩内容。有没有一种简单的方法可以做到这一点,为每个人节省一些带宽?
最佳答案
由于 HTTP::Message
,LWP 内置了此功能.但是有点隐蔽。
首先确保你有 Compress::Zlib
安装以便您可以处理 gzip
. HTTP::Message::decodable()
将根据您安装的模块输出允许的编码列表;在标量上下文中,此输出采用逗号分隔的字符串形式,您可以将其与 ' Accept-Encoding
一起使用' HTTP header , LWP
需要您添加到您的 HTTP::Request
-s 你自己。 (在我的系统上,安装了 Compress::Zlib
,列表是“gzip
, x-gzip
, deflate
”。)
当您的 HTTP::Response
回来了,请务必使用 $response->decoded_content
访问内容而不是 $response->content
.
在 LWP::UserAgent
,这一切都像这样聚集在一起:
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');
关于perl - 如何使用 LWP::UserAgent 接受 gzip 压缩的内容?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1285305/