XMLパラメータの取り込みに関して

質問

XMLパラメータの取り込みに関して
http://geocode.didit.jp/
先日上のサイトと見つけ面白いと思い
http://www.kawa.net/works/perl/treepp/treepp.html#example
上のサイトを参考に

use XML::TreePP;
my $tpp = XML::TreePP->new();
my $tree = $tpp->parsehttp( GET => "http://geocode.didit.jp/reverse/?lat=35.68653&lon=139.69193" );
print "Title: ", $tree->{"rdf:RDF"}->{channel}->{title}, "\n";

こんな感じでXMLパラメータの住所を取り込もうとしたのですがどうしても上手く取り込めません
どなたか取り込み方を教えて頂けませんでしょうか？

お願いいたします。

回答No.2

_--_1l1_1_ · ベストアンサー

最後の encode は、環境に合わせて下さい。

use Encode;
use XML::TreePP;

my $url = 'http://geocode.didit.jp/reverse/?lat=35.68653&lon=139.69193';
my $tpp = XML::TreePP->new();
my $tree = $tpp->parsehttp( GET => $url );
my $addr = $tree->{ReverseGeocode}->{Item}->{Address};
my $utf8 = Encode::is_utf8($addr) ? $addr : Encode::decode_utf8($addr);

# eucjp, sjis, cp932(windows sjis), utf8 etc
print encode( 'sjis', $utf8 ), $/;

お礼

ほんとうにありがとうございます。

回答No.1

_--_1l1_1_

データ形式がRDF になっていないようですね。リンク先を開いて直接、構造を確認して下さい。

use XML::TreePP;
my $tpp = XML::TreePP->new();
my $tree = $tpp->parsehttp(
GET => "http://geocode.didit.jp/reverse/?lat=35.68653&lon=139.69193" );
print "Title: ", $tree->{ReverseGeocode}->{Title}, "\n";

補足

ご回答有り難うございますお答えを参考に下記にコード変更したら取り込めました
$Address = $tree->{ReverseGeocode}->{Item}->{Address} ;
厚かましいのですが、取り込んだ　$Address　が文字化けしてしまい正しく表示できません
どうすれば正しく表示されますでしょうか？ご伝授おねがいします。