Problème avec XML::Simple

Bonjour,

J'ai un souci lors du parcours de mon fichier XML avec XML::Simple.
En effet, certaines balises semblent ignorées.
Voivi un cas :

<?xml version="1.0" encoding="ISO-8859-1"?>
<LISTFILES SUBJECT="MACHINES">
<MACHINE SUBJECT="eul0800232">
<REP SUBJECT="/LOG/eul0800232/home/sisteer/PROVISIONING/OUT">
<FICHIER SUBJECT="EXPORT_0631819146.LOG.1">
<ARCHIVE></ARCHIVE>
<DATEFILE>2005-12-28</DATEFILE>
</FICHIER>
<FICHIER SUBJECT="EXPORT_0671070531.LOG.1">
<ARCHIVE></ARCHIVE>
<DATEFILE>2005-12-23</DATEFILE>
</FICHIER>
<FICHIER SUBJECT="EXPORT_0631818726.LOG.1">
<ARCHIVE></ARCHIVE>
<DATEFILE>2005-12-22</DATEFILE>
</FICHIER>
</REP>
</MACHINE>
<MACHINE SUBJECT="eul0800226">
<REP SUBJECT="/LOG/eul0800232/home/sisteer/PROVISIONING/OUT">
<FICHIER SUBJECT="EXPORT_0631819146.LOG.2">
<ARCHIVE></ARCHIVE>
<DATEFILE>2005-12-28</DATEFILE>
</FICHIER>
<FICHIER SUBJECT="EXPORT_0671070531.LOG.2">
<ARCHIVE></ARCHIVE>
<DATEFILE>2005-12-23</DATEFILE>
</FICHIER>
<FICHIER SUBJECT="EXPORT_0631818726.LOG.2">
<ARCHIVE></ARCHIVE>
<DATEFILE>2005-12-22</DATEFILE>
</FICHIER>
</REP>
</MACHINE>
</LISTFILES>

Dans cet arbre, la balise <REP> est unique à l'intérieur de la balise <MACHINE>; du coup le parseur me dit lorsqu'il rencontre cette balise: "Not an ARRAY reference at ./xml2php.pl line 32"

Voici mon script :

#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple;

my $machine;
foreach $machine (@{$data->{MACHINE}})
{
my $repertoire;
print "MACHINE = ".$machine->{SUBJECT}."\n";
foreach $repertoire (@{$machine->{REP}})
{
my $fichier;
print "REPERTOIRE = ".$repertoire->{SUBJECT}."\n";
foreach $fichier (@{$repertoire->{FICHIER}})
{
print "FICHIER = ".$fichier->{SUBJECT}."\n";
}
}

}

Tu devrais utiliser les balises 'CODE' afin que cela soit plus lisible.

Pour l'erreur

Citation:

"Not an ARRAY reference at ./xml2php.pl line 32"

Le problème est que c'est un hash et non un array

Il y a peut-être moyen de l'écrire mieux mais en attendant d'autres réponses, tu peux utiliser :
Code:

1 2 3 4 5 6 7 8 9 10 foreach my $machine (@{$data->{MACHINE}}) { print "MACHINE = ".$machine->{SUBJECT}."\n"; print "\tREPERTOIRE = ".$machine->{REP}->{SUBJECT}."\n"; foreach my $h_hash (@{$machine->{REP}->{FICHIER}}) { print "\t\tDATE = ".$h_hash->{DATEFILE}."\n"; print "\t\tSUJET = ".$h_hash->{SUBJECT}."\n"; } }
résultat

Citation:

MACHINE = eul0800232
REPERTOIRE = /LOG/eul0800232/home/sisteer/PROVISIONING/OUT
DATE = 2005-12-28
SUJET = EXPORT_0631819146.LOG.1
DATE = 2005-12-23
SUJET = EXPORT_0671070531.LOG.1
DATE = 2005-12-22
SUJET = EXPORT_0631818726.LOG.1
MACHINE = eul0800226
REPERTOIRE = /LOG/eul0800232/home/sisteer/PROVISIONING/OUT
DATE = 2005-12-28
SUJET = EXPORT_0631819146.LOG.2
DATE = 2005-12-23
SUJET = EXPORT_0671070531.LOG.2
DATE = 2005-12-22
SUJET = EXPORT_0631818726.LOG.2

Si jamais tu ne connais pas la structure exacte de ton objet ou qu'elle varie d'un objet à l'autre, à chaque fois que tu t'enfonces dans la structure, tu dois tester le type de variable. Il existe une fonction permettant cela, je me demande si ce n'est pas eval(). Tu dois donc effectuer des traitement différemment en fonction de tes types de variables.

Par exemple
Code:

1 2 3 4 5 6 if ($machine->{REP}->{FICHIER} =~ /ARRAY/){ # traitement 1 } elsif ($machine->{REP}->{FICHIER} =~ /HASH/){ # traitement 2 }
PS : pour visualiser ton objet utilise print Dumper $data, c'est ce qui m'a permis de déduire les types des variables et d'écrire un script sans devoir les tester.

Citation:

Envoyé par Jasmine80

Si jamais tu ne connais pas la structure exacte de ton objet ou qu'elle varie d'un objet à l'autre, à chaque fois que tu t'enfonces dans la structure, tu dois tester le type de variable. Il existe une fonction permettant cela, je me demande si ce n'est pas eval().

Non, c'est la fonction ref(). Par ailleurs il existe deux autres solutions plus propres : donner les bons paramètres à XML::Simple (cf la doc de ce module, pas si simple que ça) ou utiliser un vrai parser pour XML comme XML::Twig.

--
Jedaï