分析XML元素和属性Perl

Question

所以我写了一些perl，将分析结果返回 亚马逊的网服务.我用的 XML::Simple 包。大部分，一切工作的时候我拿出一个元素。然而，问题是我碰到的时候一件曾属性。然后我得到一个错误，该项目是一散列。

这是我做了什么，如果我想要得到的运行时间为一个DVD：我刚创建了一个项目持有特定信息对于这一项目。

// XML
<ProductGroup>DVD</ProductGroup>
<RunningTime Units="minutes">90</RunningTime>

// Perl to parse XML

my $item = $xml->XMLin($content, KeyAttr => { Item => 'ASIN'}, ForceArray => ['ASIN']);    

$ProductGroup = $item->{Items}->{Item}->{ItemAttributes}->{ProductGroup};

if(ref($item->{Items}->{Item}->{ItemAttributes}->{RunningTime}) eq 'HASH'){
    $RunningTimeXML = $xml->XMLin($content, KeyAttr => { Item => 'ASIN'}, NoAttr => 1);
    $RunningTime = $RunningTimeXML->{Items}->{Item}->{ItemAttributes}->{RunningTime};
}

有没有办法我可以访问两个元素和属性的一个项目？

Answer 1

$item 是hashref，看起来是这样的：

$item = {
    'RunningTime'  => {'content' => '90', 'Units' => 'minutes'},
    'ProductGroup' => 'DVD'
};

因此你可以得到的运行时间是这样的：

$RunningTime = $item->{RunningTime}->{content}