Discussion :

[bartmarley]

Bonjour,
je continue dans l'apprentissage du parsage en perl et je me demande maintenant comment récupérer les données une fois parsées. J'y arrivais au début avec un fichier xml très simple. Il l'est toujours mais j'ai rajouté des informations (c'est juste un exemple!). Voici le fichier xml que je m'entraine à parser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
<?xml version='1.0'?>
<entreprise>
    <employees>
        <employee>
            <name>John Doe</name>
            <age>43</age>
            <sex>M</sex>
            <department>Exploitation</department>
        </employee>
        <employee>
            <name>Eric Johns</name>
            <age>36</age>
            <sex>M</sex>
            <department>Sale department</department>
        </employee>
    </employees>
    <departments>
        <department>
            <name>Exploitation</name>
            <manager>John Doe</manager>
            <floor>1</floor>
        </department>
        <department>
            <name>Sale department</name>
            <manager>Eric Johns</manager>
            <floor>2</floor>
        </department>
    </departments>
</entreprise>

Maintenant voici ce que je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
/usr/local/bin/perl
 
# utiliser le module
use XML::Simple;
use Data::Dumper;
use strict;
 
# créer un objet
my($xml)=new XML::Simple;
 
# lire le fichier XML
my($data)=$xml->XMLin("./data.xml");
 
# accéder aux données XML
#print Dumper ($data);
 
print (@{$data->{employees}->{employee}->[0]->{name}});

Apparemment ce n'est pas la bonne méthode lol!

Voici l'erreur qui m'est retournée lorsque j'essaye d'éxécuter ce code:

Not an array reference [....] line 17

soit la derniere ligne de mon fichier.

J'en déduit que je n'ai pas la bonne méthode pour accéder à mes données, mais je n'arrive pas à trouver pourquoi.

Avec un xml plus simple, en faisant (@{$data->{employee}}) je pouvais ensuite faire print $e->{name}, "\n"; pour avoir accès à mes données.

J'ai donc essayé en rajoutant le "chemin" vers ma donnée mais ça ne marche pas.

Est-ce que quelqu'un pourrait me donner un coup de pouce svp? Si vous avez de bons sites pour nullos ça m'intéresse aussi!

Merci!

[GLDavid]

Salut

Je trouve ton fichier XML un peu zarbi, mais bon.
je trouve que XML::Simple est sympe.... au début ! Car on en voit très vite les limites. Pour ton XML, je te recommande XPath, bien mieux en tout point.

@++

[GLDavid]

Resalut

Voici un petit exemple avec XPath (vachement utile !) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl -w
 
use XML::XPath;
use XML::XPath::XMLParser;
 
my $xp = XML::XPath->new(filename => 'data.xml');
my $nodeset = $xp->find('/entreprise/employees/employee/name'); # find all paragraphs
foreach my $node ($nodeset->get_nodelist) {
	my($string)=XML::XPath->getNodeText($node);
	print "$string\n";
}

Je te laisse réfléchir là dessus, mais je te conseille de passer à XPath, ça vaut vraiment le détour !

@++

[djibril]

tu devrais utiliser le module XML:arser:erlSAX

[bartmarley]

merci pour ces indications. j'en tiendrais compte. Mais pour l'instant je débute juste, j'ai pas beaucoup de temps car j'ai autres choses à faire en même temps (si les clients pouvaient se débrouiller tout seul ce serait pas drôle non? ).

En tout cas j'ai trouvé d'où venait mon problème. Il venait de l'instruction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print (@{$data->{employees}->{employee}->[0]->{name}});

En la remplacant par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print $data->{'employees'}->{'employee'}->[0]->{'nom'};

ça marche!

En ce qui concerne le xml bizarre, c'est juste pour m'entrainer mais les fichiers que je devrais parser auront à peu près cette tronche là en plus gros car ils recenseront des informations sur chaque poste du réseau de chaque client pour pouvoir faire du reporting.

En tout cas merci pour ces indications.

[djibril]

je connais pas ton module mister david, sinon moi j'utilise XML:arser:erlSAX pour parser des petits et gros fichier xml (comme interpro )
voilà, sinon j'ai reussi à parser ton fichier bartmarley mais tout depend de ce que tu peux faire??

[djibril]

ok, tant mieux si t'as reussi, oublie pas un tag resolu.
NB: cette facon de parser ton html necessite de connaaitre parfaitement l'arbre de ton xml, l'ordre d'apparition de tes balises, ce qui peut etre lourd si ton fichier et tres gros. faut pas aussi oublier que tu seras amener à gerer des attributs
courage!!!

[bartmarley]

merci pour ton soutien

Je connais parfaitement l'architecture de mon fichier puisque c'est moi qui l'ai conçu. Et je peux même dire que l'architecture est très répétitive.

Désolé pour le tag résolu, c'est un pitit oubli de ma part.