[Xml::Simple] lire un arbre

Bonjour

J'ai un peu honte de poser cette question, mais je ne comprends rien.

J'ai ce xml tout bête:

Code:

---

1 2 3 4 5 6 7

<Memory> <Modules> <Module name="FIR">111</Module> <Module name="BIG">2222</Module> </Modules> </Memory>

---

je souhaite récupérer les valeurs des noeuds Module. Je fais donc ainsi (chose qui a déjà marché chez moi et que j'ai vu dans plein de tuto):

Code:

---

1 2 3 4 5 6 7 8

my $parser = new XML::Simple; my $doc = $parser->XMLin($xmlFile); foreach my $m(@{$doc->{Modules}->{Module}}) { print "Name: ".$m->{name}."\n"; print "Value: ".$m."\n"; }

---

Mais en exécutant ce script, ca me retourne:
Not an ARRAY reference en faisant référence à la ligne foreach.

J'arrive pas à voir ce que je fais de travers... :oops:
Merci d'avance
K.

Le mieux pour comprendre comment manipuler l'objet, est sans doute de le dumper :

Code:

---

1 2 3 4 5 6

use Data::Dumper;   ...   print Data::Dumper->Dump([$doc], [qw(*doc)]);

---

Résultat :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

%doc = ( 'Modules' => { 'Module' => { 'BIG' => { 'content' => '2222' }, 'FIR' => { 'content' => '111' } } } );

---

Tu constates que $doc{Modules} est une référence de hash dont le premier élément a pour clé Module et la valeur est constituée à nouveau d'une référence de hash, etc...