2011-01-01から1ヶ月間の記事一覧

XMLの差分取得2

textNodeの中身消去して、XMLの構造だけを比較するバージョン #!/usr/bin/perl use strict; use warnings; use utf8; use LWP::UserAgent; use XML::Simple; use XML::DOM::XPath; use Text::Diff; binmode(STDOUT, ':utf8'); my $content1 = get('http://se…

XMLの差分取得

今日は、Windows XP環境で実施。 cpanが使えるということで、"Strawberry Perl"をインストールしてみた。 http://strawberryperl.com/ んで、はてなのサーチAPI叩いてみたよ。 #!C:\strawberry\perl\bin use strict; use warnings; use utf8; use LWP::UserA…