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));
}