GZipでエンコードされたコンテンツをWWW :: Mechanizeで透過的に処理する

Question

WWW :: Mechanizeを使用していて、現在レスポンスヘッダーを確認してIO :: Uncompress :: Gunzipを使用してコード内の 'Content-Encoding: gzip'圧縮されていないコンテンツを取得します。

しかし、私はこれを透過的に行い、form（）、links（）などのWWW :: Mechanizeメソッドが非圧縮コンテンツを処理し、解析するようにしたいと考えています。 WWW :: MechanizeはLWP :: UserAgentのサブクラスなので、これを行うにはLWP::UA::handlersを使用することをお勧めします。

私は（私は、例えば、非圧縮のコンテンツを印刷することができます）、部分的に成功しているが、私は私が要約すると

$mech->forms(); 

を呼び出すことができるように、透過的にこれを実行することができません：どのように私は「置き換えますその時点以降、すべてのWWW :: Mechanizeメソッドは、Content-Encodingが起こったことがないように動作します。

私はあなたの注意と助けていただきありがとうございます。 ありがとう

Answer 1

WWW::Mechanize::GZipと思います。

Answer 2

$ res-> content（$ bytes）メンバーを使用して置き換えることができます。

ところで、私はLWP :: UserAgentのソースを見て、次にHTTP :: Responseを見て、次にHTTP::Messageというものを見つけました。

Answer 3

これはUserAgentで組み込まれているため、Mechanizeです。あなたにいくつかの髪

-Toデバッグを保存する一つの主な注意点、あなたがdecoded_contentを呼び出した後 @エラー$をチェックしてください。

$html = $r->decoded_content; 
die $@ if $@; 

いっそのこと、HTTP ::メッセージのソースに目を通すと、すべてのサポートパッケージは、私の場合は

は、decoded_contentが返されていることを確認してくださいundefをコンテンツは、生のバイナリがある、と私は上で行ってきましたしながら、野生のガチョウの追跡。 UserAgentはデコード失敗時にエラーフラグを設定しますが、Mechanizeはそれを無視します（発生率をエラー/警告としてチェックまたは記録しません）。私の場合$ @をのSEZで

：「それはソースに飛び込むした後

をevalされたされたIO/HTML.pm ..見つけることができません、私は内蔵のデコード処理されて見つけますちょうど約すべてのシナリオをカバーし、推測のトンを作り、長い細心の、骨の折れる（あなたGisleをありがとうございました！）。

あなたが被害妄想している場合、明示的に）（新しい

ですべての要求で使用するデフォルトのヘッダーを設定します

$browser = new WWW::Mechanize('default_headers' => HTTP::Headers->new('Accept-Encoding' 
          => scalar HTTP::Message::decodable()));