APIから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(STDOUT, ":utf8"); print XMLout(XMLin( $r->content ));