XML::Simpleの使い方について

質問

下記のような、プログラムを書いたのですが、上のタイトルはとれるのですが、連続して出てくるentryがどうしても取得できません。
何かご助言頂ければありがたいです。

my $url = "http://blog.livedoor.jp/takapon_ceo/atom.xml";

my $xml = get($url);
my $tree = XMLin($xml);

my $title = $tree->{title};
print "$title";

for (my $i = 0; $i <= 5; $i++) {
$id[$i] = $tree->{'entry'}->[$i]->{'id'};
print "$id[$i]";
}

よろしくお願いします。

回答No.2

leaz024 · ベストアンサー

use Data::Dumper; をして Dumper($tree->{entry}) を表示すれば分かりますが、その実体は配列ではなくハッシュです。
このハッシュのキーは各エントリの id で、id は投稿順に文字列昇順となっていますから、キーをソートして値を取り出せばOKです。

# IDリストの取り出し（新着順にしたいので降順にソート）
my @entries_id = sort {$b cmp $a} keys %{$tree->{entry}};

foreach my $id (@entries_id) {
　　print "$id\n";

　　# 各要素へのアクセス
　　my $entry = $tree->{entry}->{$id};
　　print "$entry->{title}\n";
　　print "$entry->{summary}->{content}\n";
}

# この結果は $tree = XMLin($xml) とした場合のものです。
# インデントに全角空白を使っているので、コピーする場合はタブなどに置換して下さい。

お礼

サンプルコードまでご用意頂きありがとうございました。
ありがとうございました。
おかげさまで無事動作させることができました。
Dumperもデバッグに使えそうですね。

回答No.1

BLUEPIXY

こんな感じ？
----------------------------------------------------
use encoding 'UTF-8', STDOUT => "shiftjis";
use LWP::Simple;
use XML::Simple;

my $url = "http://blog.livedoor.jp/takapon_ceo/atom.xml";
my $xml = get($url);
my $tree = XMLin($xml, forcearray=>1);

my $title = $tree->{title}->[0];
print "$title\n";
for my $entry (@{$tree->{entry}}) {
$id[$i] = $entry->{'id'}->[0];
print "$id[$i]\n";
}