parsing XML avec XML :: Twig

Question

je le format XML suivant qui a 100 éléments comme le dessous

Je veux analyser et extraire données1 et données2 comment puis-je faire avec XML::Twig module Perl

<Item> 
<data1> <data3> date </data3> </data1> 
<data2> data2 </data2> 

</Item> 
<Item> 
<data1> <date3> data22 </data3> </data1> 
<data2> data2 </data2> 
</Item> 
.... 

Answer 1

Votre XML n'est pas conforme aux spécifications, donc aucun parseur ne peut le traiter tel quel. Les principaux problèmes sont les suivants:

• XML est sensible à la casse, donc Item est autre chose que item
• balises de fermeture commencent par barre oblique, pas anti-slash
• il devrait y avoir élément de niveau supérieur

Corriger ces problèmes, ce code fonctionne:

use strict; use warnings; 

use XML::Twig; 

my $data = <<END_DATA; 
<items> 
    <item> 
     <data1> data1 </data1> 
     <data2> data2 </data2> 
    </item> 
    <item> 
     <data1> data1 </data1> 
     <data2> data2 </data2> 
    </item> 
</items> 
END_DATA 


my $t = XML::Twig->new(
    twig_handlers => { 
     'item' => sub { 
      # process each item and print contents of dataN elements 
      print 
       $_->first_child_trimmed_text('data1'), "\t", 
       $_->first_child_trimmed_text('data2'),"\n"; 
     }, 
    }, 
)->parse($data);