问题很简单,如何处理gzip压缩的内容。而且不仅要处理这些内容,还要填写表单并执行您通常使用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;
我已经删除了网址,原因很明显。无论如何,这没有任何结果虽然有一点确实返回了解码内容,这很奇怪。
我还设法解码WWW :: Mechanize中的内容,但我仍然不知道如何提交我需要的表单。