1 
  our $ua = LWP::UserAgent->new;
  my $response = $ua->get($url);
  if($response->is_success) {
    my $perl_hash_or_arrayref = decode_json(encode("UTF-8", $response->decoded_content));

上記のコードは、応答が使用しているエンコーディングを指定する必要なく、応答をUTF-8エンコーディングに変換します。

これは特定のケースでは失敗する可能性があると思います。

LWP::UserAgent応答エンコーディングを明示的に伝えるにはどうすればよいですか?

4

1 に答える 1

2

decoded_contentinのドキュメントを参照してくださいHTTP::Message:

$mess->decoded_content( %options )

    Returns the content with any Content-Encoding undone and for
 textual content the raw content encoded to Perl's Unicode strings.
 If the Content-Encoding or charset of the message is unknown this
 method will fail by returning undef.

    The following options can be specified.

    charset

        This override the charset parameter for text content. The value
 none can used to suppress decoding of the charset.
于 2011-06-29T08:59:20.277 に答える