utilisation de Simple::XML

Version imprimable

Bonjour,

j'ai un fichier xml:

Code:

1
2
3
4
5
6
7
<?xml version='1.0' encoding='utf-8'?>
<!-- # -*- coding: utf-8 -*- -->
<tableau>
  <element nom="hydrogéne" numero="1" code="H"/>
  <element nom="hélium" numero="2" code="He"/>
  <element nom="lithium"  numero="3" code="Li"/>
</tableau>

que j'essaie d'analyser avec le module XML::Simple comme suit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# -*- coding: utf-8 -*-
 
use strict;
use warnings;
 
use XML::Simple; # qw(:strict)
 
my $s1=<<EOF1;
<?xml version='1.0' encoding='utf-8'?>
<!-- # -*- coding: utf-8 -*- -->
<tableau>
  <element nom="hydrogéne" numero="1" code="H"/>
  <element nom="hélium" numero="2" code="He"/>
  <element nom="lithium"  numero="3" code="Li"/>
</tableau>
EOF1
 
my $elts = XMLin( $s1 , ForceArray => 1 , VarAttr => 'name', ContentKey => '-content' );
 
use Data::Dumper;
 
print Dumper($elts);

j'obtiens le résultat suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
$VAR1 = {
          'element' => [
                       {
                         'nom' => "hydrog\x{e9}ne",
                         'numero' => '1',
                         'code' => 'H'
                       },
                       {
                         'nom' => "h\x{e9}lium",
                         'numero' => '2',
                         'code' => 'He'
                       },
                       {
                         'nom' => 'lithium',
                         'numero' => '3',
                         'code' => 'Li'
                       }
                     ]
        };

J'essaie maintenant de parcourir les éléments de $elts. Ce dernier est un hash, $elts->{'element'} est un tableau, $elts->{'element'}[0] est hash et enfin $elts->{'element'}[0]{'nom'} donne hydrogène.

Pour utiliser les résultat, j'ai utilisé la boucle suivante

Code:

1
2
3
4
5
my @elt=@{$elts->{'element'}};
my $elt=@{$elts->{'element'}};
for my $i  (0.. $elt-1 ) {
  print "$elt[$i]{'nom'}\t$elt[$i]{'code'}\t$elt[$i]{'numero'}\n";
}

ce qui me donne le résultat attendu

Code:

1
2
3
hydrogène	H	1
hélium	        He      2
lithium	        Li      3

ma question est la suivante pourquoi la boucle

Code:

1
2
3
foreach ( @{$elts->{'element'}} ) {
  print "$_{'nom'}\n";
}

me donne le résultat suivant:

Code:

1
2
3
4
5
Use of uninitialized value in concatenation (.) or string at ex-3.pl line 52.
 
Use of uninitialized value in concatenation (.) or string at ex-3.pl line 52.
 
Use of uninitialized value in concatenation (.) or string at ex-3.pl line 52.

et pourquoi la boucle

Code:

1
2
3
foreach my $e ( @{$elts->{'element'}} ) {
  print "$e{'nom'}\n";  #-- ligne 56
}

entraîne une erreur de syntaxe

Code:

1
2
Global symbol "%e" requires explicit package name at ex-3.pl line 56.
Execution of ex-3.pl aborted due to compilation errors.

merci de votre aide

20/07/2009, 14h14
gorgonite

pas sûr que tu aies le droit d'injecter directement autre chose qu'un scalaire dans ta chaine de caractères :?

essaies cela

Code:

print $e{'nom'}."\n"
20/07/2009, 16h07
djibril

Il y a une doc sur les l'utilisation de Perl et XML que je recommande ;)
20/07/2009, 16h18
gorgonite

Citation:

Envoyé par djibril

Il y a une doc sur les l'utilisation de Perl et XML que je recommande ;)

certes, mais pas sûr que ça aide vraiment ici...

Citation:

Envoyé par gorgonite

pas sûr que tu aies le droit d'injecter directement autre chose qu'un scalaire dans ta chaine de caractères :?

essaies cela

Code:

print $e{'nom'}."\n"

le hash %e n'existe pas, donc ça ne fonctionnera pas.

Vous ne pouvez pas écrire :
Code:

1 2 3 foreach ( @{$elts->{'element'}} ) { print "$_{'nom'}\n"; }
Car $_ est une référence de hachage, il faut donc rajouter la flèche ->.

Faites un tour sur la FAQ Perl sur les références pour mieux les comprendre.
Code:

1 2 3 foreach ( @{$elts->{'element'}} ) { print "$_->{'nom'}\n"; }
C'est déjà mieux. Mais je vous répéte que XML::Simple est bien pour les XML qui sont simple :mrgreen:. A éviter dès qu'on commence à avoir des attributs.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 #!/usr/bin/perl use warnings; use strict; use XML::Simple; # qw(:strict) my $s1=<<EOF1; <?xml version='1.0' encoding='utf-8'?>  <tableau> <element nom="hydrogéne" numero="1" code="H"/> <element nom="hélium" numero="2" code="He"/> <element nom="lithium" numero="3" code="Li"/> </tableau> EOF1 my $elts = XMLin( $s1 , ForceArray => 1 , VarAttr => 'name', ContentKey => '-content' ); foreach ( @{$elts->{'element'}} ) { print "$_->{'nom'}\n"; }

21/07/2009, 10h45
parsy

utilisation de Simple::XML
Merci beaucoup :ccool::ccool::ccool:

Quel module doit-on utiliser pour traiter plus facilement les attributs ?

Plus généralement je cherche une présentation et une comparaison des différents modules de Perl pour traiter les documents XML, suivant les critères pourraient être
- facilité d'utilisation
- compatibilité
Encore merci
21/07/2009, 11h56
djibril

Dans ce thread, tu as le lien vers l'article. Tu peux y laisser un commentaire sur l'article, ça fait toujours plaisir :D.

Sinon, tous les articles sur Perl se trouvent dans notre rubrique tutoriels.

Voilà