ヤフーのトピックスAPIを使ってみる

#!/usr/local/bin/perl
use strict;
use warnings;
sub main
{
	my $appid = 'application id';
	#my $baseurl = 'http://api.news.yahoo.co.jp/NewsWebService/V1/Topics?';
	my $baseurl = 'http://news.yahooapis.jp/NewsWebService/V1/Topics?';

	my $url = $baseurl . "appid=" . $appid . "&" . "category=computer";

	my $xml = `curl --silent '$url'`;
	if ($? ne 0) {
		printf STDERR "curl error";
		exit (1);
	}
	use XML::Simple;
	my $ref = XMLin ($xml);

	foreach my $d ( @{$ref->{Result}} ) {

		my $title = "no title";
		if (ref($d->{title}) eq "HASH") {
		} else {
			$title = $d->{title};
		}

		print $title , "\n";;
		print $d->{url} , "\n";;
		print "\n";;
	}

	exit (0);
}

& main;

% perl topics.pl
秋葉原「ザ・コン館」閉店か
http://dailynews.yahoo.co.jp/fc/computer/akihabara/

YouTube 著作権技術を9月投入
http://dailynews.yahoo.co.jp/fc/computer/youtube/

Second Life「興味ない」76%
http://dailynews.yahoo.co.jp/fc/computer/second_life/

NEC・日立、静かな水冷PC開発
http://dailynews.yahoo.co.jp/fc/computer/pc_new_model/

no title
http://dailynews.yahoo.co.jp/fc/computer/digital_single_lens_reflex_camera/

no title
http://dailynews.yahoo.co.jp/fc/computer/ipod/

総体応援ミニブログ開設
http://dailynews.yahoo.co.jp/fc/computer/twitter/

no title
http://dailynews.yahoo.co.jp/fc/computer/next_generation_windows/

no title
http://dailynews.yahoo.co.jp/fc/computer/high_speed_mobile_phone/

no title
http://dailynews.yahoo.co.jp/fc/computer/wimax/

no title
http://dailynews.yahoo.co.jp/fc/computer/qualcomm/

no title
http://dailynews.yahoo.co.jp/fc/computer/pc_soft_new_product/

no title
http://dailynews.yahoo.co.jp/fc/computer/skype/

no title
http://dailynews.yahoo.co.jp/fc/computer/web2/

no title
http://dailynews.yahoo.co.jp/fc/computer/google/

no title
http://dailynews.yahoo.co.jp/fc/computer/electronic_books/

no title
http://dailynews.yahoo.co.jp/fc/computer/small_memory_card/

no title
http://dailynews.yahoo.co.jp/fc/computer/mobile_computer/

no title
http://dailynews.yahoo.co.jp/fc/computer/saas/

no title
http://dailynews.yahoo.co.jp/fc/computer/digital_camera/

no title
http://dailynews.yahoo.co.jp/fc/computer/electroluminescence/

no title
http://dailynews.yahoo.co.jp/fc/computer/im/

no title
http://dailynews.yahoo.co.jp/fc/computer/podcasting/

no title
http://dailynews.yahoo.co.jp/fc/computer/brew/

no title
http://dailynews.yahoo.co.jp/fc/computer/ie_outlook/

no title
http://dailynews.yahoo.co.jp/fc/computer/storage/

no title
http://dailynews.yahoo.co.jp/fc/computer/input_device/

no title
http://dailynews.yahoo.co.jp/fc/computer/mp3/

no title
http://dailynews.yahoo.co.jp/fc/computer/mixi/

no title
http://dailynews.yahoo.co.jp/fc/computer/java/

http://news.yahooapis.jp/NewsWebService/V1/Topics