XMLの差分取得2

perl XML

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…

2011-01-02

XMLの差分取得

perl XML

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

2010-12-30

APIからXMLデータ取得してそのまま標準出力

perl XML

perlとも友好関係を結ぼうと試し中 #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use XML::Simple; my $ua = LWP::UserAgent->new; my $r = $ua->get('http://search.hatena.ne.jp/keyword?word=ABC&mode=rss&ie=utf8&page=1'); binmode(…