Yahoo API での 挫折
一体何が作りたいのか分からず、結局、分からなかった。
酷いソースを書いておきます。
#!/usr/bin/perl use strict; use CGI; use XML::Simple; use LWP::Simple; use Data::Dumper; my $appid = "YahooAPIKey"; my $xmlsimple = XML::Simple->new(ForceArray=>['Result']); { # get yahoo topics my $baseurl = "http://news.yahooapis.jp/NewsWebService/V2/topics"; my $category = "top"; my $url = "$baseurl?appid=$appid&pickupcategory=$category"; my $content = get($url); return [] unless $content; my $xml = $xmlsimple->XMLin($content); return [] unless $xml->{Result}; my $i = 0; while(my $title = $xml->{Result}[$i]{Title}){ print ">$title\n"; my $keywords = &keyphrase($title); for(@$keywords){ print $_->{Keyphrase}."\n"; } $i++; } } # divide of sentence sub keyphrase { my $sentence = shift; my $baseurl = "http://jlp.yahooapis.jp/KeyphraseService/V1/extract"; my $url = "$baseurl?appid=$appid&sentence=$sentence"; my $content = get($url); return [] unless $content; my $xml = $xmlsimple->XMLin($content); return [] unless $xml->{Result}; return $xml->{Result}; } 1;
何かというと、Yahooのトピックスをとってきて、
キーワードに分割してるだけ。
output:
>日ハム選手ら5人インフル感染 日ハム選手ら5人イン >茨城で水難事故相次ぎ3人不明 水難事故相次ぎ3人 茨城 >サイトウ・キネンで反戦の音楽 サイトウ・キネン 反戦 音楽 >菅家さんの選挙権認められず 菅家 選挙権 >レクサスHV 1か月で1万台受注 レクサスHV 1か月 1万台受注 >なぜ誤報「松井秀に長男」 誤報 松井秀 長男