XMLの差分取得
今日は、Windows XP環境で実施。
cpanが使えるということで、"Strawberry Perl"をインストールしてみた。
http://strawberryperl.com/
んで、はてなのサーチAPI叩いてみたよ。
#!C:\strawberry\perl\bin use strict; use warnings; use utf8; use LWP::UserAgent; use XML::Simple; use Text::Diff; # コマンドプロンプトで文字化けしないように binmode(STDOUT, 'encoding(cp932)'); # レスポンスのXMLを取得 my $content1 = request('http://search.hatena.ne.jp/keyword?word=ABC&mode=rss&ie=utf8&page=1'); my $content2 = request('http://search.hatena.ne.jp/keyword?word=ABC&mode=rss&ie=utf8&page=2'); # 差分表示 print diff \$content1, \$content2; sub request { my $ua = LWP::UserAgent->new; my $r = $ua->get(shift); # XMLを整形 return XMLout(XMLin($r->content)); }