perl - 使用 WWW::Mechanize 透明处理 GZip 编码的内容

Question

我正在使用 WWW::Mechanize，目前正在处理带有“Content-Encoding: gzip”的 HTTP 响应。 ' 在我的代码中首先检查响应头，然后使用 IO::Uncompress::Gunzip 获取未压缩的内容。

但是，我想透明地执行此操作，以便 WWW::Mechanize 方法(如 form()、links() 等)处理并解析未压缩的内容。由于 WWW::Mechanize 是 LWP::UserAgent 的子类，我更愿意使用 LWP::UA::handlers去做这个。

虽然我取得了部分成功(例如，我可以打印未压缩的内容)，但我无法以我可以调用的方式透明地执行此操作

$mech->forms();

总结:如何“替换” $mech 对象内的内容，以便从那时起，所有 WWW::Mechanize 方法都像 Content-Encoding 从未发生过一样工作？

感谢您的关注和帮助。
谢谢

Answer 1

WWW::Mechanize::GZip ， 我认为。