2021.07.05
PerlのLWP::UserAgentでgzip圧縮されたWebページをテキストで受け取る
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $can_accept = HTTP::Message::decodable;
my $response = $ua->get('https://xxxxx/', 'Accept-Encoding' => $can_accept,);
print $response->decoded_content;
こんな簡単なのか。。。。。5年前に知りたかった。
出力の受け取り方は3種類。
$response->as_string
はWebページのエンコードそのままを返す。しかもヘッダー付き。
$response->content
は本文のみだけど、圧縮されるとバイナリーがそのまま入ってくる。
$response->decoded_content
は圧縮されていてもされていなくてもUTF-8で出力。
参考
Category:#サイト運営関連
■ ■ ■ コメント ■ ■ ■
この記事のアクセス数:本カテゴリーで直近コメントが書かれた記事
→カテゴリー:#サイト運営関連(記事数:19)
本カテゴリーの最近の記事(コメント数)