BeautifulSoup.findAll() en Perl

Question

je dois retirer tous les éléments « NODEGROUP » à partir d'un fichier XML:

<Database> 
    <Get> 
    <Data> 
     <NodeGroups> 
     <NodeGroup> 
      <AssociateNode ConnID="6748763_2" /> 
      <AssociateNode ConnID="6748763_1" /> 
      <Data DataType="Capacity">2</Data> 
      <Name>Alpha</Name> 
     </NodeGroup> 
     <NodeGroup> 
      <AssociateNode ConnID="6748763_23" /> 
      <AssociateNode ConnID="6748763_7" /> 
      <Data DataType="Capacity">2</Data> 
      <Name>Charlie</Name> 
     </NodeGroup> 
     <NodeGroup> 
      <AssociateNode ConnID="6748763_98" /> 
      <AssociateNode ConnID="6748763_12" /> 
      <Data DataType="Capacity">2</Data> 
      <Name>Papa</Name> 
     </NodeGroup> 
     <NodeGroup> 
      <AssociateNode ConnID="6748763_8" /> 
      <AssociateNode ConnID="6748763_45" /> 
      <Data DataType="Capacity">2</Data> 
      <Name>Yankee</Name> 
     </NodeGroup> 
     </NodeGroups> 
     <System> 
     ... 
     </System> 
    </Data> 
    </Get> 
</Database> 

Si je pouvais utiliser python et BeautifulSoup, j'analyser le xml et appel quelque chose comme:

node_group_array = soup.findAll("nodegroups") 

Mais je suis en utilisant des modules XML de Perl et Perl, donc je XML :: simple marche de XMLIN, récursive dans chaque clé de hachage, vérifier si la valeur est un hachage, de vérifier si elle était " NodeGroup "hash, etc.

Je pense qu'il y a quelque chose comme soup.findAll() dans l'un des modules XML de Perl, mais je ne le trouve pas. Comment faire "soup.findAll ('nodegroups')" en Perl?

Answer 1

Pour clarifier la réponse de Randal un peu, je pense que vous voulez que le fourni par la distribution XML::LibXML API XML::LibXML::XPathContext:

my $xpath = XML::LibXML::XPathContext->new($document); 
for my $node ($xpath->find('//NodeGroup') { ... } 

Answer 2

Il n'y a pas de module "XML" en Perl. Il existe plusieurs modules dans l'espace de noms XML::. Mon préféré est XML::LibXML, mais pour quelque chose d'aussi simple, vous pouvez même utiliser HTML::Parser en "mode xml".

Answer 3

XML :: DOM a getElementsByTagName (pour XML :: faire LibXML :: DOM et XML: : GDOME) qui fonctionne comme la fonction DOM du même nom.

Answer 4

En utilisant XML::Simple avec le fichier de données montré:

#!/usr/bin/perl 

use strict; use warnings; 

use XML::Simple; 

my $db = XMLin($ARGV[0]); 
my $nodegroups = $db->{Get}{Data}{NodeGroups}{NodeGroup}; 

use Data::Dumper; 
print Dumper $nodegroups; 

Vous pouvez utiliser l'option ForceArray => 1 pour garantir la cohérence dans le cas où vous avez des fichiers avec plusieurs sections <NodeGroups>...</NodeGroups> et d'autres avec une seule telle section.

Si les fichiers ne sont pas trop volumineux, l'utilisation de XML::Simple devrait fonctionner correctement. Voir aussi la section caveats dans la documentation.