「Yahoo Web API の返り値を JSON で受け取って Perl で処理をする」の改良版。 #!/usr/bin/env perl use strict; use warnings; use utf8; use Encode; use LWP::UserAgent; use Data::Dumper; use URI::Escape; use XML::Simple; my $yahoo_app_id = 'your_app_id'; my $agent = 'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'; my $apibaseuri = 'http://jlp.yahooapis.jp/KeyphraseService/V1/extract'; my $referrer = 'http://developer.yah