問題は単純で、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;
明らかな理由により、URL を編集しました。とにかく、これは何も得られません。ある時点で、これはデコードされたコンテンツを返しましたが、これは非常に奇妙です。
WWW::Mechanize 内でコンテンツをデコードすることもできましたが、必要なフォームを送信する方法がわかりません。