Parse XML et extraction des données voulues

Version imprimable

Salut,

Je cherche à extraire des données d'un gros, très gros fichier XML.

Voici le type d'arborescence:

Code:

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 <MeasDataCollection>
    <measFileHeader>
        <fileFormatVersion>1</fileFormatVersion>
        <senderName>
            4F 50 54 4E 43 2F 42 53 43 50 4B 35 2F 47 31 31 
            42 2F 49 50 41 33 20
        </senderName>
        <senderType></senderType>
        <vendorName>45 72 69 63 73 73 6F 6E</vendorName>
        <collectionBeginTime>20120807220000Z</collectionBeginTime>
    </measFileHeader>
    <measData>
        <MeasData>
            <nEId>
                <nEUserName></nEUserName>
                <nEDistinguishedName></nEDistinguishedName>
            </nEId>
            <measInfo>
                <MeasInfo>
                    <measTimeStamp>20120807221500Z</measTimeStamp>
                    <granularityPeriod>900</granularityPeriod>
                    <measTypes>
                        <MeasType>49 50 53 45 4E 54 4B 42 59 54 45 53</MeasType>
                        <MeasType>49 50 52 45 43 4B 42 59 54 45 53</MeasType>
                        <MeasType>49 50 4C 4F 53 54 50 41 43 4B 55 4C</MeasType>
                        <MeasType>49 50 4E 55 4D 53 43 41 4E</MeasType>
                        <MeasType>49 50 55 4C 52 45 43 50 41 43 4B</MeasType>
                        <MeasType>49 50 44 4C 53 45 4E 54 50 41 43 4B</MeasType>
                        <MeasType>44 4C 37 30 37 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 37 36 38 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 38 31 38 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 38 36 39 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 39 31 39 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 39 36 30 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 37 30 37 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 37 36 38 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 38 31 38 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 38 36 39 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 39 31 39 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 39 36 30 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 31 30 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 31 30 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>49 50 4F 56 4C 4C 31</MeasType>
                        <MeasType>49 50 4F 56 4C 4C 32</MeasType>
                        <MeasType>50 53 44 49 53 43 4F 56 4C</MeasType>
                        <MeasType>43 53 44 49 53 43 4F 56 4C</MeasType>
                        <MeasType>49 50 4F 56 4C 43 53 52 45 47</MeasType>
                        <MeasType>49 50 4F 56 4C 50 53 52 45 47</MeasType>
                    </measTypes>
                    <measValues>
                        <MeasValue>
                            <measObjInstId>41 42 49 53 49 50 2E 52 58 4F 54 47 2D 35 31</measObjInstId>
                            <measResults>
                                    <iValue>63576</iValue>
 
                                    <iValue>60332</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>900</iValue>
 
                                    <iValue>131844</iValue>
 
                                    <iValue>143268</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
                            </measResults>
..............

La première "iValue" correspond au premier "MeasType", la deuxième correspond au deuxième, ainsi de suite...

Dans cet exemple il n'y a qu'un seul "measObjInstId", en réalité il y en a 254 je crois.

Le but de mon script Perl est de sortir toutes les ivalues pour chaque measObjInstId avec le nom correspondant aux ivalues.

Exemple:

Code:

1
2
3
4
5
6
7
8
9
10
Objet1:
   Type1 = valeur1
   Type2 = valeur2
   Type3 = valeur3
   ...
Objet2:
   Type1=valeur1
   Type2 = valeur2
   Type3 = valeur3
   ...

J'ai essayé des choses mais je n'y arrive pas car les types de valeur sont en dehors des balises "measObjInstId".

Pouvez vous m'aider?

Merci

12/10/2012, 18h47
djibril

Bonjour,

Qu'avez-vous essayé ?
14/10/2012, 01h03
synx91
Le code est sur un autre PC, là je ne l'ai pas mais j'arrive à peu près à extraire ce que je veux mais "ligne par ligne", en gros j'ai:
Code:

1 2 3 4 5 6 7 8 9 10 11 Type1 Type2 Type3 Objet1 Value1 Value2 Value3 Objet2 Value1 Value2 ...
Le problème c'est que je veux quelque chose du genre:
Code:

1 2 3 4 5 6 7 8 Objet1 Type1 = Value1 Type2 = Value2 Type3 = Value3 Objet2 Type1 = Value1 Type2 = Value2 Type3 = Value3
Une idée?
14/10/2012, 09h53
djibril

Pour analyser un fichier XML, je vous recommande d'utiliser un parser comme je l'explique dans cette documentation : http://djibril.developpez.com/tutoriels/perl/perl-xml/.
14/10/2012, 11h25
synx91

Cette documentation je l'ai déjà lue, elle m'a été très utile mais je ne trouve pas de solution à mon problème.

Je vais peut être me répéter mais par exemple j'ai 250 objets, 250 séries de 7 values, et une seule série de 7 types.
Ces 7 types sont des indicateurs pour chaque série de 7 values.
Je ne sais pas comment faire apparaître le nom de l'indicateur devant la value à chaque fois que ça se présente...

Votre documentation m'a aidé pour extraire des champs compris entre des balises mais pour faire ce que je veux ici, je ne comprends pas :calim2:
14/10/2012, 13h45
djibril

Je vous recommande de nous montrer votre programme. On ne va pas s'amuser à en faire un de toute pièce de novo.
14/10/2012, 16h25
synx91

Pas de souci je le montrerai quand j'aurai l'autre PC. :ccool:

Et pour info je ne voulais pas un programme ou un code entier, où avez vous vu que je demandais ça?
"Une idée?" ne veut pas dire "donnez moi le code."
14/10/2012, 18h59
djibril

Citation:

Envoyé par synx91

Pas de souci je le montrerai quand j'aurai l'autre PC. :ccool:

Ok

Citation:

Envoyé par synx91

Et pour info je ne voulais pas un programme ou un code entier, où avez vous vu que je demandais ça?
"Une idée?" ne veut pas dire "donnez moi le code."

difficile de donner une idée, d'orienter une réflexion ou corriger un code inexistant ;) !
15/10/2012, 09h28
Philou67430

Un conseil : lors de l'analyse du fichier, range dans un tableau spécial (disons @meastype) les types), et utilise le ensuite lors de l'analyse des iValue.

Quel module parser de XML as-tu utilisé ?
15/10/2012, 09h37
synx91

J'utilise XML::Twig (recommandé dans la doc de Djibril et utile poru les gros fichier XML.

Je réorganise mon code et je vous poste ça. :ccool:
15/10/2012, 09h43
djibril

Parfait :ccool:

Voici donc mon code (basique car je débute):

Code:

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
#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
 
my $file = 'output-test.xml';
 
my $twig1=XML::Twig->new(
	TwigRoots => {'MeasType' => \&print_text}
	);
my $twig2=XML::Twig->new(
	TwigRoots => {'measObjInstId' => \&print_text}
	);	
my $twig3=XML::Twig->new(
	TwigRoots => {'iValue' => \&print_text}
	);
 
$twig1->parsefile($file);
$twig2->parsefile($file);
$twig3->parsefile($file);
 
sub print_text
{my ($twig, $elt)=@_;
	print $elt->text;
	print "\n";
	$twig->purge;        #libère la mémoire
}

Le problème de ce code est que ça me sort d'abord tous les types puis tous les objets et enfin les values...

J'ai fait quelques modifs (pour suivre le conseil de Philou):

Code:

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
#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
 
my $file = 'output-test.txt';
 
my $twig1=XML::Twig->new(
	TwigRoots => {'MeasType' => \&print_type}
	);
my $twig2=XML::Twig->new(
	TwigRoots => {'measObjInstId' => \&print_object}
	);	
my $twig3=XML::Twig->new(
	TwigRoots => {'iValue' => \&print_value}
	);
 
$twig1->parsefile($file);
$twig2->parsefile($file);
$twig3->parsefile($file);
 
my @type;
 
sub print_type
{my ($twig1, $elt)=@_;
	@type = $elt->text;
	$twig1->purge;        #libère la mémoire
}
 
sub print_object
{my ($twig2, $elt)=@_;
	print $elt->text;
	print "\n";
	$twig2->purge;        #libère la mémoire
}
 
sub print_value
{my ($twig3, $elt)=@_;
	print $elt->text;
	print "\n";
	$twig3->purge;        #libère la mémoire
}
 
 print "Le premier type est: $type[0]\n";

Sauf qu'ici, au lieu d'avoir la première valeur "type", c'est la dernière. En fait je crois que chaque type écrase le précédent dans le tableau.

15/10/2012, 10h31
djibril

Bonjour,

Pouvez vous nous mettre un exemple de fichier XML valide ?

Sinon, à première vue, je vois que vous analysez le fichier à trois reprises et cela n'a à mon sens aucune utilité. Cela alourdit l'analyse en triplant la lecture du fichier XML.

Donnez-nous un fichier XML valide pour que nous puissions faire des tests car l'exemple du dessus ne contient pas toutes les balises fermantes.
Et si possible, avec un exemple concret de résultats souhaités.

Merci !

Bonjour,

Merci pour votre réponse, effectivement c'est pas très optimisé.

J'ai pris qu'une partie du fichier (il fait 44Mo):

Code:

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
<MeasDataCollection>
    <measFileHeader>
        <fileFormatVersion>1</fileFormatVersion>
        <senderName>
            4F 50 54 4E 43 2F 42 53 43 50 4B 35 2F 47 31 31 
            42 2F 49 50 41 33 20
        </senderName>
        <senderType></senderType>
        <vendorName>45 72 69 63 73 73 6F 6E</vendorName>
        <collectionBeginTime>20120807220000Z</collectionBeginTime>
    </measFileHeader>
    <measData>
        <MeasData>
            <nEId>
                <nEUserName></nEUserName>
                <nEDistinguishedName></nEDistinguishedName>
            </nEId>
            <measInfo>
                <MeasInfo>
                    <measTimeStamp>20120807221500Z</measTimeStamp>
                    <granularityPeriod>900</granularityPeriod>
                    <measTypes>
                        <MeasType>49 50 53 45 4E 54 4B 42 59 54 45 53</MeasType>
                        <MeasType>49 50 52 45 43 4B 42 59 54 45 53</MeasType>
                        <MeasType>49 50 4C 4F 53 54 50 41 43 4B 55 4C</MeasType>
                        <MeasType>49 50 4E 55 4D 53 43 41 4E</MeasType>
                        <MeasType>49 50 55 4C 52 45 43 50 41 43 4B</MeasType>
                        <MeasType>49 50 44 4C 53 45 4E 54 50 41 43 4B</MeasType>
                        <MeasType>44 4C 37 30 37 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 37 36 38 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 38 31 38 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 38 36 39 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 39 31 39 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 39 36 30 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 37 30 37 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 37 36 38 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 38 31 38 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 38 36 39 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 39 31 39 35 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 39 36 30 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>44 4C 31 30 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>55 4C 31 30 30 53 54 4E 4C 4F 41 44</MeasType>
                        <MeasType>49 50 4F 56 4C 4C 31</MeasType>
                        <MeasType>49 50 4F 56 4C 4C 32</MeasType>
                        <MeasType>50 53 44 49 53 43 4F 56 4C</MeasType>
                        <MeasType>43 53 44 49 53 43 4F 56 4C</MeasType>
                        <MeasType>49 50 4F 56 4C 43 53 52 45 47</MeasType>
                        <MeasType>49 50 4F 56 4C 50 53 52 45 47</MeasType>
                    </measTypes>
                    <measValues>
                        <MeasValue>
                            <measObjInstId>41 42 49 53 49 50 2E 52 58 4F 54 47 2D 35 31</measObjInstId>
                            <measResults>
                                    <iValue>63576</iValue>
 
                                    <iValue>60332</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>900</iValue>
 
                                    <iValue>131844</iValue>
 
                                    <iValue>143268</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                            </measResults>
                            <suspectFlag><false/></suspectFlag>
                        </MeasValue>
                        <MeasValue>
                            <measObjInstId>41 42 49 53 49 50 2E 52 58 4F 54 47 2D 32 35</measObjInstId>
                            <measResults>
                                    <iValue>67617</iValue>
 
                                    <iValue>51234</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>900</iValue>
 
                                    <iValue>346727</iValue>
 
                                    <iValue>377444</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                            </measResults>
                            <suspectFlag><false/></suspectFlag>
                        </MeasValue>
                        <MeasValue>
                            <measObjInstId>41 42 49 53 49 50 2E 52 58 4F 54 47 2D 38 37</measObjInstId>
                            <measResults>
                                    <iValue>29625</iValue>
 
                                    <iValue>28747</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>900</iValue>
 
                                    <iValue>248633</iValue>
 
                                    <iValue>244490</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                            </measResults>
                            <suspectFlag><false/></suspectFlag>
                        </MeasValue>
                        <MeasValue>
                            <measObjInstId>41 42 49 53 49 50 2E 52 58 4F 54 47 2D 31 33 33</measObjInstId>
                            <measResults>
                                    <iValue>56352</iValue>
 
                                    <iValue>43416</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>900</iValue>
 
                                    <iValue>308891</iValue>
 
                                    <iValue>321431</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                                    <iValue>0</iValue>
 
                            </measResults>
                            <suspectFlag><false/></suspectFlag>
                        </MeasValue>
                    </measValues>
                </MeasInfo>
            </measInfo>
        </MeasData>
    </measData>
    <measFileFooter>20120807221500Z</measFileFooter>
</MeasDataCollection>

Pour être clair, pour chaque "objet", il y a autant de "value" que de "type".
Nombre total de value = nombre de type * nombre d'objet

15/10/2012, 10h37
djibril

Et ce fichier devrait donner quoi comme résultat ?
15/10/2012, 10h41
synx91

Je devrais avoir ça:

Citation:

measObjInstId"1"
MeasType"1" = iValue"1"
MeasType"2" = iValue"2"
MeasType"3" = iValue"3"
MeasType"4" = iValue"4"
...

measObjInstId"2"
MeasType"1" = iValue"1"
MeasType"2" = iValue"2"
MeasType"3" = iValue"3"
MeasType"4" = iValue"4"
...

...

Les MeasType et measObjInstId sont en hexa donc c'est pas lisible mais ça je les convertirai plus tard, je l'ai déjà fait dans d'autres scripts donc pas de souci.

Les deux iValue"1" n'ont pas la même valeur, c'est juste que je change d'objet alors je repars à 1. De même pour les value suivantes...
15/10/2012, 10h43
djibril
Oui mais il nous faut le résultat concret car
Code:

1 2 3 4 MeasType"1" = iValue"1" MeasType"2" = iValue"2" MeasType"3" = iValue"3" MeasType"4" = iValue"4"
ça ne m'aide pas. 1, 2, 3, 4 ça correspond à quoi ?
15/10/2012, 10h49
synx91

Alors en prenant les valeurs:

Citation:

41 42 49 53 49 50 2E 52 58 4F 54 47 2D 35 31 (premier measObjInstId):
49 50 53 45 4E 54 4B 42 59 54 45 53 (premier MeasType)= 63576
49 50 52 45 43 4B 42 59 54 45 53 = 60332
49 50 4C 4F 53 54 50 41 43 4B 55 4C = 0
...

41 42 49 53 49 50 2E 52 58 4F 54 47 2D 32 35 (deuxième measObjInstId):
49 50 53 45 4E 54 4B 42 59 54 45 53 (premier MeasType)= 67617
49 50 52 45 43 4B 42 59 54 45 53 = 51234
49 50 4C 4F 53 54 50 41 43 4B 55 4C = 0
...

Les MeasType "tournent en boucle" pour chaque measObjInstId, mais les iValue changent.

J'espère être clair, difficile à expliquer avec de l'hexa. 8O
15/10/2012, 10h52
synx91

Avec la conversion:

Citation:

ABISIP.RXOTG-51 (premier measObjInstId):
IPSENTKBYTES (premier MeasType)= 63576
IPRECKBYTES = 60332
IPLOSTPACKUL = 0
...

ABISIP.RXOTG-25 (deuxième measObjInstId):
IPSENTKBYTES (premier MeasType)= 67617
IPRECKBYTES = 51234
IPLOSTPACKUL = 0
...
15/10/2012, 11h12
djibril

Juste pour précision, dans un fichier, il n'y a qu'une seule balise <measTypes> ?
Et celle-ci est associée l'unique balise measValues qui contient toutes les balises MeasValue avec les informations ?
15/10/2012, 11h19
synx91

Oui, là il n'y en a qu'une car j'ai pris un extrait du fichier.

En réalité il y en a plusieurs mais tu as raison, à chaque fois qu'il y a la balise measTypes, vient ensuite la balise measValues.

Par exemple, il y a une balise measTypes avec 7 MeasType, puis dans le measValues il y a 250 (ça peut être différent) measObjInstId avec pour chacun d'eux 7 iValue.
Et ça reprend avec une balise measTypes avec 15 MeasType etc...
15/10/2012, 11h25
synx91

Petite précision, la balise measValues n'est pas une balise "enfant" de measTypes.

J'ai apporté une amélioration au code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
 
my $file = 'output-test.txt';
 
my $twig1=XML::Twig->new(
	TwigRoots => {'MeasType' => \&print_type, 'measObjInstId' => \&print_type, 'iValue' => \&print_type}
	);
 
$twig1->parsefile($file);
 
my @type;
 
sub print_type
{my ($twig1, $elt)=@_;
	# @type = $elt->text;
	print $elt->text;
	print "\n";
	$twig1->purge;        #libère la mémoire
}

Voici un exemple de programme testé :

Code:

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
#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
 
my $fichier_xml = 'test.xml'; 
 
my $twig = new XML::Twig( 
  Twig_handlers => { 
    'measTypes' => \&MeaTypes,
    'MeasValue' => \&AnalyseValues, 
  }, 
);
 
my @LesMeaTypes;
$twig->parsefile($fichier_xml);
 
# Stockage des MeaTypes 
sub MeaTypes {
  my ( $twig, $TwigMeaTypes ) = @_;
 
  @LesMeaTypes = ();
  foreach my $TwigMeasType ( $TwigMeaTypes->children('MeasType') ) {
    push @LesMeaTypes, $TwigMeasType->text;
  }
 
  return;
} 
 
sub AnalyseValues {
  my ( $twig, $TwigMeasValue ) = @_;
 
  my $measObjInstId = $TwigMeasValue->first_child('measObjInstId')->text;
  print "measObjInstId : $measObjInstId\n";
  my $compteur = 0;
  foreach my $TwigMeasType ( $TwigMeasValue->first_child('measResults')->children('iValue') ) {
    print "$LesMeaTypes[$compteur] = ", $TwigMeasType->text, "\n";
    $compteur++;
  }
 
  return;
}

Je ne sais pas s'il répond par la suite à vos cas particuliers. Il faudrait déjà le tester.

15/10/2012, 11h39
synx91

Maintenant le code (que j'ai mis plus haut) parse le fichier XML une seule fois (merci pour la remarque) et en résultat j'ai bien les valeurs une par une comme elle apparaisse dans le fichier XML.
Reste à savoir comment les afficher comme je le veux?

Citation:

Envoyé par djibril

Voici un exemple de programme testé :

Code:

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
#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
 
my $fichier_xml = 'test.xml'; 
 
my $twig = new XML::Twig( 
  Twig_handlers => { 
    'measTypes' => \&MeaTypes,
    'MeasValue' => \&AnalyseValues, 
  }, 
);
 
my @LesMeaTypes;
$twig->parsefile($fichier_xml);
 
# Stockage des MeaTypes 
sub MeaTypes {
  my ( $twig, $TwigMeaTypes ) = @_;
 
  @LesMeaTypes = ();
  foreach my $TwigMeasType ( $TwigMeaTypes->children('MeasType') ) {
    push @LesMeaTypes, $TwigMeasType->text;
  }
 
  return;
} 
 
sub AnalyseValues {
  my ( $twig, $TwigMeasValue ) = @_;
 
  my $measObjInstId = $TwigMeasValue->first_child('measObjInstId')->text;
  print "measObjInstId : $measObjInstId\n";
  my $compteur = 0;
  foreach my $TwigMeasType ( $TwigMeasValue->first_child('measResults')->children('iValue') ) {
    print "$LesMeaTypes[$compteur] = ", $TwigMeasType->text, "\n";
    $compteur++;
  }
 
  return;
}

Je ne sais pas s'il répond par la suite à vos cas particuliers. Il faudrait déjà le tester.

Tout simplement WOOOHHH.

C'est exactement ce que je recherchais, ça marche nickel :ccool::ccool::ccool:

Un grand merci!

15/10/2012, 11h47
djibril

Si vous avez besoin de plus d'explications, n'hésitez pas.
Sinon, comment faites-vous la conversion ?

Voilà ce que j'utilisais (dans un autre script):
Code:

1 2 3 4 5 if ($ligne =~ m{<measObjInstId>\s*(.*?)\s*</measObjInstId>}) { $ligne =~ s/([a-fA-F0-9][a-fA-F0-9])/chr(hex($1))/eg; $ligne =~ s/\s+//g; print FILE_OUT "$ligne\n"; }
Il faut que je l'adapte pour ce script maintenant.

Il suffit d'utiliser une procédure. Et pour mettre tout le résultat dans un fichier, voici le programme complet :

Code:

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
#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
 
my $fichier_xml = 'test.xml'; 
my $fichier_out = 'test.txt'; 
 
my $twig = new XML::Twig( 
  Twig_handlers => { 
    'measTypes' => \&MeaTypes,
    'MeasValue' => \&AnalyseValues, 
  }, 
);
 
my @LesMeaTypes;
open my $fh, '>', $fichier_out or die "Impossible de créer $fichier_out\n"; 
$twig->parsefile($fichier_xml);
close $fh;
# Stockage des MeaTypes 
sub MeaTypes {
  my ( $twig, $TwigMeaTypes ) = @_;
 
  @LesMeaTypes = ();
  foreach my $TwigMeasType ( $TwigMeaTypes->children('MeasType') ) {
    push @LesMeaTypes, $TwigMeasType->text;
  }
 
  return;
} 
 
sub AnalyseValues {
  my ( $twig, $TwigMeasValue ) = @_;
 
  my $measObjInstId = $TwigMeasValue->first_child('measObjInstId')->text;
  print {$fh} "measObjInstId : $measObjInstId\n";
  my $compteur = 0;
  foreach my $TwigMeasType ( $TwigMeasValue->first_child('measResults')->children('iValue') ) {
    print {$fh} conversion($LesMeaTypes[$compteur]), ' = ', $TwigMeasType->text, "\n";
    $compteur++;
  }
 
  return;
} 
 
sub conversion {
  my $mot = shift;
 
  $mot =~ s/([a-fA-F0-9][a-fA-F0-9])/chr(hex($1))/eg;
	$mot =~ s/\s+//g;
  return $mot;
}

15/10/2012, 12h19
djibril

Merci de penser au tag résolu si c'est OK.
15/10/2012, 13h32
synx91

C'est fait, j'attendais juste de voir si la partie "conversion" était ok pour toi, mais ce n'est pas le même sujet.