LWP::UserAgentを使ってみる

今日のknew new things

1日1つ以上アウトプット。日々コレ日常。

Twitterスクリプトの時に書いたけど、備忘録。

WEB APIからJSONテキストが返ってくる時、ほげほげするためのコード。
動かしていないから間違っているかも…。

use LWP::UserAgent;
use JSON;

my $ua  = LWP::UserAgent->new;
my $req = HTTP::Request->new('GET', 'http://api.hogehoge/goo/');
my $res = $ua->request($req);

if ($res->is_success) {
    my $json = from_json($res->content);
    # あとはよしなに
}