A análise de XML Elementos e Atributos com o Perl

Question

Então, eu escrevi algumas perl que iria analisar os resultados retornados da A Amazon Web Services.Eu estou usando o XML::Simple pacote.Para a maior parte, tudo funcionou quando eu retirei de um elemento.No entanto, o problema que eu tive foi quando um elemento tinha um atributo bem.Então eu recebo um erro que o item é um Hash.

Aqui está o que eu fiz, se eu quisesse obter o Tempo de Execução para um DVD:Acabei de criar um item de segurar a informação específica para este item one-off.

// 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};
}

Existe uma maneira que eu possa acessar ambos os elementos e atributos de um item?

Answer 1

$item é um hashref que se parece com isso:

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

Portanto, você pode obter o tempo de execução como este:

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