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万台受注
>なぜ誤報「松井秀に長男」
誤報
松井秀
長男