LWP::UserAgent で gzip, deflate のデータを受け取る
#!/usr/bin/env perl # 日本語 use strict; use warnings; use LWP::UserAgent; use HTTP::Message; use utf8; my $board_list_url = 'http://www.example.com/'; my $ua = LWP::UserAgent->new; my $can_accept = HTTP::Message::decodable; my $response = $ua->get($board_list_url, 'Accept-Encoding' => $can_accept ); if ($response->is_success) { print $utf8->encode($response->decoded_content); # Perl の内部文字コードでコンテントを受け取らない場合は下記の引数を渡す # $response->decoded_content(charset => 'none'); } else { print $response->status_line; }