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で出力。

参考

• Accept-Encoding gzipを指定したときの LWP::UserAgentと Furlの挙動に関するメモ - syohex’s diary 2 users

Category:#サイト運営関連

Follow @fetuin

■　■　■　コメント　■　■　■

いいっすね！=1

名前 ↑Ｂ

ツイート

コメント(※改行は省略されます）

※３回以上の連続書き込み不可

この記事のアクセス数:

本カテゴリーで直近コメントが書かれた記事


→カテゴリー：#サイト運営関連(記事数:21)
本カテゴリーの最近の記事(コメント数)