perl - 使用 WWW::Mechanize/::GZip 处理 gzip 后的网页内容

Question

问题很简单，如何处理压缩的内容。不仅要处理这些内容，还要填写表格并完成您通常使用 WWW::Mechanize 所做的所有事情。我正在尝试做一个简单的任务：

#!/usr/bin/perl

#use WWW::Mechanize;
use WWW::Mechanize::GZip;
use IO::File;



my $mech = WWW::Mechanize::GZip->new(agent =>
     'Mozilla/5.0 (Windows; U; MSIE 9.0; Windows NT 9.0; en-US;)',

    ssl_opts => {
    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
    verify_hostname => 0,
});


$mech->get('https://');

print $mech->content;

出于明显的原因，我已经编辑了 URL。无论如何，这不会产生任何结果。尽管在某一时刻这确实返回了解码的内容，这很奇怪。

我还设法解码了 WWW::Mechanize 中的内容，但是我仍然不知道如何提交我需要的表单。