Perl - Ajout d'information d'un fichier XML dans un autre fichier XML

**yoan.parel** · 20/11/2019, 15h08

Bonjour je débute en PERL, j'ai cherché sur internet pendant plusieurs heures mais je n'arrive pas à faire ce que j'aimerais.

Contexte :
J'ai deux fichiers XML, dans un il y a les informations de plusieurs articles et dans l'autre le numéro de l'article avec différents prix. Ce que j'aimerais faire est de pouvoir ajouter le prix de l'article dans le premier fichier XML pour ensuite le convertir en CSV.

Voici le fichier avec un article :

Code XML :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
<items>
  <item>
    <LITM>664513</LITM>
    <part_number>
      <LITT>SRZU HPE 867810-B21</LITT>
      <MITM>867810-B21</MITM>
      <EITM>190017085289</EITM>
    </part_number>
    <part_description>
      <DESC>HPE DL38X Gen10 High Performance Fan</DESC>
      <DES2>passend zu HPE DL38X Gen10</DES2>
      <MWLK>https://support.hpe.com/hpsc/doc/public/display?docId=emr_na-a00019685en_us&amp;docLocale=en_US</MWLK>
      <WTXT>HPE Ventilateur 867810-B21 DL38X Gen10 Kit de ventilateur de température haute performance</WTXT>
      <WTX2/>
    </part_description>
    <additional_information>
      <GWGH>1.11</GWGH>
      <MAFT>Hewlett-Packard</MAFT>
      <WAIM>36</WAIM>
      <STDT>25.07.19</STDT>
      <DEDT>unbekannt</DEDT>
      <ENOS>Nein</ENOS>
      <STQU>0</STQU>
    </additional_information>
    <part_catagory>
      <CAT1>Réseau informatique</CAT1>
      <CAT2>Serveur</CAT2>
      <CAT3>Boîtier serveur</CAT3>
      <CATA>Accessoires Boîtier de serveur</CATA>
    </part_catagory>
  </item>
  <item>
    <LITM>756881</LITM>
    <part_number>
      <LITT>HD GT E 0G06072</LITT>
      <MITM>0G06072</MITM>
      <EITM>705487206319</EITM>
    </part_number>
    <part_description>
      <DESC>G-Tech Drive mobile USB 3.0, 2.5" 2TB</DESC>
      <DES2>USB3.0, Silber</DES2>
      <MWLK>https://www.g-technology.com/products/portable/g-drive-mobile#0G06071</MWLK>
      <WTXT>G-Technology Disque dur externe G-DRIVE mobile 2 TO</WTXT>
      <WTX2>Alimentation électrique: Câble de tranfert de données, Capacité de stockage: 2 TB, Cryptage du stockage des données: Keine, Couleur: Argenté, Système de fichiers: exFAT (Windows &amp; Mac OS), Interfaces: USB 3.0</WTX2>
    </part_description>
    <additional_information>
      <GWGH>0.30</GWGH>
      <MAFT>G-Technology</MAFT>
      <WAIM>36</WAIM>
      <STDT>04.07.18</STDT>
      <DEDT>sofort</DEDT>
      <ENOS>Nein</ENOS>
      <STQU>2</STQU>
    </additional_information>
    <part_catagory>
      <CAT1>Matériel informatique</CAT1>
      <CAT2>Périphérique informatique</CAT2>
      <CAT3>Disque dur &amp; SSD externe</CAT3>
      <CATA>HDD externe</CATA>
    </part_catagory>
  </item>
</items>

Et voici le fichier avec les prix :

Code XML :

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
<prices>
  <item>
    <LITM>664513</LITM>
    <price>
      <INPR>44.95</INPR>
      <EXPR>41.74</EXPR>
      <VATR>7.70</VATR>
      <ECPR>50.00</ECPR>
    </price>
  </item>
  <item>
    <LITM>756881</LITM>
    <price>
      <INPR>413.00</INPR>
      <EXPR>383.47</EXPR>
      <VATR>7.70</VATR>
      <ECPR>469.00</ECPR>
    </price>
  </item>
</prices>

J'aimerais reprendre la balise <EXPR> du deuxième fichier et l'inclure dans le premier.
On m'a dit de travailler avec des tableaux donc voici mon code :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/C:/Perl64/bin/perl.exe
 
use XML::Simple;
use Data::Dumper;
use Array::Diff;
use Data::Dumper;
 
$xml = new XML::Simple (KeyAttr=>[]);
my @tab_price=();
my @tab_article=[];
# read XML file
$prix = $xml->XMLin("prix.xml");
$article = $xml->XMLin("article.xml");
 
#Création des clés valeurs prix
foreach $i (@{$prix->{item}})
{
	chomp;
	$prices{"$i->{LITM}"} = "$i->{price}->{EXPR}";
}
#Création des clés valeurs articles
foreach $j (@{$article->{item}})
{
	chomp;
	$art{"$j->{LITM}"} = "$j->{LITM}";
}
#Test valeur (numéro d'article)
foreach $key_pri (keys %prices)
{
	foreach $key_art (keys %art)
	{
		if($key_pri eq $key_art)
		{
			$value_pri = $prices{$key_pri};
			#print"$key_art costs $value_pri\n";
 
			foreach $i (@{$article->{item}})
			{
				push @tab_article, [$key_art,"$i->{part_description}->{DESC}", $value_pri,"\n"];
			}
		}
	}
}
print Dumper @tab_article;

et voici le résultat :

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
$VAR1 = [];
$VAR2 = [
          '664513',
          'HPE DL38X Gen10 High Performance Fan',
          '41.74',
          '
'
        ];
$VAR3 = [
          '664513',
          'G-Tech Drive mobile USB 3.0, 2.5" 2TB',
          '41.74',
          '
'
        ];
$VAR4 = [
          '756881',
          'HPE DL38X Gen10 High Performance Fan',
          '383.47',
          '
'
        ];
$VAR5 = [
          '756881',
          'G-Tech Drive mobile USB 3.0, 2.5" 2TB',
          '383.47',
          '
'
        ];

Est-ce possible de m'aider s'il vous plait ? Et je ne sais si j'ai été assez clair dans ma demande d'aide ^^'

**CosmoKnacki** · 20/11/2019, 19h54

Pour commencer, moi qui suis bête et discipliné, je suivrai la recommandation présente dans le synopsis du module XML::Simple:

PLEASE DO NOT USE THIS MODULE IN NEW CODE.

Je lui préférerai plutôt XML::LibXML qui est une interface pour libxml2 qui a l'avantage d'être rapide et de se retrouver dans pratiquement tous les langages, donc on ne mange pas son pain noir pour rien.

À propos de ton but:

Ce que j'aimerais faire est de pouvoir ajouter le prix de l'article dans le premier fichier XML pour ensuite le convertir en CSV.

Est-ce que tu souhaites vraiment obtenir le fichier XML (le premier) avec le prix rajouté, ou est-ce que c'est juste parce que tu penses que c'est une étape nécessaire pour produire ton CSV?

La raison pour laquelle tu obtiens ton tableau bizarre se trouve selon moi à la ligne 38 avec une boucle foreach qui n'a pas lieu d'être.

ps: Si tu veux que tes fichiers XML aient la bonne coloration syntaxique sur le site, précise que c'est du xml dans la balise [code=xml][/code]. Autre chose, est-ce que c'est normal que tes fichiers XML ne débutent pas par une déclaration XML avec l'encodage (vu qu'ils sont bourrés d'accents)?

**yoan.parel** · 20/11/2019, 21h05

Bonsoir CosmoKnacki, merci pour ta réponse.

Je n'avais pas vu le message d'avertissement dans le synopsis du module ^^', je vais essayer avec le module que tu me conseil.

Est-ce que tu souhaites vraiment obtenir le fichier XML (le premier) avec le prix rajouté, ou est-ce que c'est juste parce que tu penses que c'est une étape nécessaire pour produire ton CSV?

Je dois ajouter le prix dans le premier fichier XML et ensuite convertir en CSV pour ajouter les produits dans un système de gestion pour une entreprise (le système s'appelle Bexio et il n'accepte que CSV, XLS, XLSX).

La raison pour laquelle tu obtiens ton tableau bizarre se trouve selon moi à la ligne 38 avec une boucle foreach qui n'a pas lieu d'être.

D'accord je vais voir pour corriger ceci, merci beaucoup !!

ps: Si tu veux que tes fichiers XML aient la bonne coloration syntaxique sur le site, précise que c'est du xml dans la balise . Autre chose, est-ce que c'est normal que tes fichiers XML ne débutent pas par une déclaration XML avec l'encodage (vu qu'ils sont bourrés d'accents)?

Merci pour l'astuce de la balise !

Oui, j'ai juste mis en exemple ici mais dans mes fichiers XML j'ai la déclaration avec l'encodage.

Encore merci de ta réponse, je vais essayer tous ça demain !

**CosmoKnacki** · 20/11/2019, 21h49

Envoyé par yoan.parel

Je dois ajouter le prix dans le premier fichier XML et ensuite convertir en CSV pour ajouter les produits dans un système de gestion pour une entreprise (le système s'appelle Bexio et il n'accepte que CSV, XLS, XLSX).

À ta place je ferai la modification du XML et le remplissage du CSV en même temps, ça t'évitera de parser le XML deux fois.

Combien d'items environ contient le fichier XML?

**djibril** · 21/11/2019, 19h41

Bonne lecture,

Perl et les fichiers XML

**yoan.parel** · 22/11/2019, 15h56

Il contient environ 10'000 Items je dirais.

Merci pour vos réponses, je vais essayer avec vos conseils et je vous tiens au courant

**CosmoKnacki** · 23/11/2019, 16h33

Je demande ça car il faut compter en gros 10 fois la taille du fichier pour évaluer la taille que l'arbre DOM va prendre en mémoire. Donc dans ton cas, 10.000 items ça devrait faire 100 Mo de ram pour l'arbre DOM, ce qui reste acceptable vu les capacités mémoire actuelles, mais si tu veux en consommer moins, je te conseille de jeter un œil à cette partie du tutoriel de XML::LibXML (et en particulier à la partie Bring Back the DOM) qui explique comment utiliser le pull parser (reader) en conjonction avec le DOM (ce qui fait que les items sont lus et que leurs arbres DOM sont construits un par un au fur et à mesure).

**yoan.parel** · 25/11/2019, 09h02

D'accord merci pour l'information.

J'ai lu le tuto pour Perl que djibril à donné, j'arrive à lire mes fichiers XML mais je n'arrive pas à ajouter le prix dans le bon article.. Je ne sais pas si quelqu'un peut me donner une piste pour savoir quel test il faut faire avec ces deux fichiers XML.. Je suis vraiment bloqué..

**CosmoKnacki** · 25/11/2019, 11h20

Bon voici comment je l'aurai fait:

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
use strict;
use warnings;
 
use XML::LibXML;
 
my $doc = XML::LibXML->new->parse_file('prix.xml');
 
my %prices;
 
for ($doc->findnodes('/prices/item')) {
    $prices{$_->findvalue('./LITM')} = $_->findvalue('./price/EXPR');
}
 
$doc = XML::LibXML->load_xml(location => 'article.xml', { no_blanks => 1 });
 
for ($doc->findnodes('/items/item/LITM')) {
 
    my $LITM = $_->to_literal;
 
    if ( exists($prices{$LITM}) ) {
        my $EXPRNode = $doc->createElement('EXPR');
        $EXPRNode->appendText($prices{$LITM});
        $_->parentNode->addChild($EXPRNode);
    }
}
 
print $doc->toString(1);

Le principe est simple:

Je parcours les différents items du fichier prix pour construire un hash avec l'id en clef et le prix en valeur.
Je parcours les items du fichier article, lorsque l'id d'un item existe dans le hash, je crée un élément EXPR (ou autre) avec le prix tiré du hash et je l'ajoute à l'item.

**yoan.parel** · 25/11/2019, 11h37

Merci énormément !

Perl - Ajout d'information d'un fichier XML dans un autre fichier XML

Langage Perl

Discussions similaires

Partager

Partager