用Perl解析XML元素和属性

Question

所以我写了一些解析从Amazon Web Services返回的结果的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}