Comment puis-je récupérer des attributs de balise avec XML :: Simple?

Question

J'essaie simplement de récupérer un attribut de XML dans mon programme Perl. Cependant, j'ai des problèmes pour récupérer les attributs. J'ai utilisé XML::Simple.

Je peux récupérer des informations bien quand XML est comme ceci:

<IdList> 
    <Id>17175540</Id> 
</IdList> 

en utilisant ce code

$data->{'DocSum'}->{'Id'}; 

Cependant, lorsque le XML est comme ceci:

<Item Name="Title" Type="String"> 
    Some Title 
</Item> 

I Je ne reçois aucune donnée lors de l'utilisation du code suivant

$data->{'DocSum'}->{'Title'}; 

BTW, c'est le lien que je reçois le XML de http://eutils.ncbi.nlm.nih.gov/entrez/eutils/esummary.fcgi?db=pubmed&id=19288470

Answer 1

Je pris le xml de cette page que vous avez fourni, utilisé la chose entière comme une chaîne pour l'argument à XMLIN et eu du succès avec

print $data->{DocSum}->{Item}->[5]->{content}; 

donnant la sortie

dégradation bromoxynil un sol limoneux du Mississippi.

C'est à peu près la même chose que disait Derobert.

Edit:

Plutôt que d'assumer le 6e élément d'objet est celui que vous recherchez, pour imprimer le contenu du nœud où l'attribut Name est « Titre » (puis sortir de la boucle puisque vous avez trouvé ce que vous voulez):

foreach my $item_node (@{$data->{DocSum}->{Item}}) 
{ 
    if($item_node->{Name} eq 'Title') 
    { 
     print $item_node->{content}; 
     last; 
    } 
} 

Bien sûr, cela est toujours à la recherche uniquement sur les nœuds de l'objet immédiatement sous DocSum, donc si vous cherchez PubType au lieu du titre, il ne serait pas trouvé en raison de cette étant un enfant du noeud PubTypeList Item.

Answer 2

Je suppose que vous utilisez XML :: Simple pour analyser XML. Je suggère que vous vider votre structure de données en utilisant Data::Dumper. Vous devriez pouvoir le trouver assez facilement alors.

use Data::Dumper; 
print Dumper($data); 

Answer 3

course:

$ perl -MXML::Simple -M'Data::Dump qw/pp/' 
my $ref = XMLin('<Item Name="Title" Type="String">Some Title</Item>'); 
pp $ref; 

sortie:

{ Name => "Title", Type => "String", content => "Some Title" } 

Ainsi, il semble que vous devriez regarder sous la rubrique 'contenu' pour le trouver.

Answer 4

Il semble que XML :: Simple ne sache pas exactement comment transformer les données. Avez-vous essayé de mélanger l'option KeyAttr de XMLin()?

Answer 5

Mais, bien sûr, 'Titre' n'est pas une clé, mais une valeur d'attribut, et donc une valeur de hachage. Vous avez besoin XPath et vous pouvez spécifier /DocSum/Item[@Name='Title']

L'équivalent en XML :: Simple (ou Perl), est

my ($item) = grep { $_->{Name} eq 'Title' } @{$data->{DocSum}{Item}}; 

ou même

use List::Util qw<first>; 
... 
(first { $_->{Name} eq 'Title' } @{$data->{DocSum}{Item}})->{content}; 

Je suis en désaccord avec daotoad . Cela ne transforme pas les données aussi loin que je peux le voir. Vous n'êtes simplement pas travaillant avec ce qu'il produit correctement. C'est un Simple module, ce n'est pas robuste, et pas trop DWIM.