XML::Simple

質問

xmlファイルの中の<service>aa001</service>のaa001の値が
取得できません。
<service>のセクションが複数行あるとうまくデータの取得可能ですが。
複数または一行の<service>からのデータ取得できないのでしょうか？
****************************************************
use XML::Simple;
my $root = XMLin(".\\test.xml");
#test.xml----------------------------------------
#<?xml version="1.0" encoding="utf-8" ?>
#<root>
#<server no ="1">
# <MMM>0000000001</MMM>
# <service>aa001</service>
# <WWW>a001</WWW>
# <WWW>b001</WWW>
#</server>
#<server no ="2">
# <MMM>0000000002</MMM>
# <service>aa002</service>
# <service>bb002</service>
# <service>cc002</service>
# <WWW>a002</WWW>
# <WWW>b002</WWW>
#</server>
#</root>
#----------------------------------------

for my $Serv (@{$root->{'server'}}){

foreach my $Service (@{$Serv->{'service'}}){
print "$Service\n";
}
}

回答No.1

kumoz · ベストアンサー

XML::Simple が作成するデータ構造が、１行と複数行では異なるためでは
ないかと思われます。

<server no ="1"> の場合
$Serv => {
MMM => "0000000001",
service => "aa001",
WWW => ["a001", "b001"]
}

セクションが１行の場合はスカラー値、複数行の場合は無名配列に格納
されます。そのため、コードではその部分を判断する必要があります。

foreach my $Serv (@{$root->{'server'}}){
if (ref($Serv->{'service'}) eq 'ARRAY') {
foreach my $Service (@{$Serv->{'service'}}){
print "$Service\n";
}
} else {
print $Serv->{'service'};
}
}