kizasiを使って

今週1週間でよく使われたキーワードTop10を出力するスクリプトをkizapiを使って作ってみた．たぶん，ここで得られるリストを元に楽天APIを使って検索した結果を返すってのが一番簡単なMash Upだと思う．

#!/usr/local/bin/perl
use LWP::Simple;
use XML::RSS;
use Encode qw(_utf8_off);
use strict;

my ($res, $rss, $c);

$res = get("http://kizasi.jp/kizapi.py?span=1w&type=rank");
$rss = new XML::RSS;
$rss->parse($res);

for my $item (@{$rss->{'items'}}){
    my $str = $item->{'title'};
    _utf8_off($str);
    print $str,"\n";
    last if (++$c == 10);
}

が

それが面白いかどうかは別問題（笑