Analyser un fichier XML

**medsup** · 22/06/2011, 17h11

slt à tous,

j'ai un XML sous la forme suivante:

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
<measCollecFile xmlns="http://www.3gpp.org/ftp/specs/latest/rel-5/32_series/32432-610.zip#measCollec">
  <fileHeader fileFormatVersion="32.435 V6.0" vendorName="Nokia Siemens Networks" dnPrefix="@vantage Commander">
    <fileSender localDn="@Commander" elementType="@Commander"/>
    <measCollec beginTime="2011-06-22T12:45:01+01:00"/>
  </fileHeader>
  <measData>
    <managedElement userLabel="HFE_MNB_02" swVersion="NotAvailable"/>
    <measInfo>
      <granPeriod duration="PT900S" endTime="2011-06-22T11:59:03"/>
      <measTypes>ReceivedRequests-405.1.1.1 FailureRate-405.1.1.3 SentRequests-405.4.1.1 ReceivedResponses-405.4.1.2 FailureRate-405.4.1.3 ReceivedRequests-405.4.2.1 SentResponses-405.4.2.2 FailureRate-405.4.2.3</measTypes>
      <measValue measObjLdn="nedType=platform,PacketId=405,SymbolicNEName=HFE_MNB_02">
        <measResults>0 0 0 0 0 754 754 0</measResults>
        <suspect>false</suspect>
      </measValue>
    </measInfo>
	  </measData>
  <fileFooter>
    <measCollec endTime="2011-06-22T13:00:01+01:00"/>
  </fileFooter>
</measCollecFile>

je dois extraire le contenu des balises <measTypes> (noir gras), <measResults> (rouge gras) et les affiche dans un tableau sous la forme suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
    measTypes                                         measResults
 
ReceivedRequests-405.1.1.1 	                   0
FailureRate-405.1.1.3 	                           0
SentRequests-405.4.1.1                              0
ReceivedResponses-405.4.1.2 	                   0
FailureRate-405.4.1.3 	                           0
ReceivedRequests-405.4.2.1 	                 754
SentResponses-405.4.2.2 	                 754
FailureRate-405.4.2.3	                           0

some help PLZ!!!

**Dimitry.e** · 22/06/2011, 19h22

La réponse est là :
http://djibril.developpez.com/tutoriels/perl/perl-xml/

**medsup** · 23/06/2011, 11h41

bjr,
voila le message qui s'affiche quand je compile mon script!!

bon, j'ai installé XMl-Twig 3.38 mais toujours le même message!!

**djibril** · 23/06/2011, 11h44

Comment as-tu installé le module ? Quelle est ta version de Perl et sous Quel OS travailles-tu ? De plus, sans programme de ta part, difficile de t'aider

!

**medsup** · 23/06/2011, 12h17

ben j'ai exécuté "makefile" si non j'ai un OS: win7 et perl 5.137
enfait, je comprend pas pourquoi perl package manager ne trouve pas le module Twing et l’installe tout simplement!!!

**medsup** · 23/06/2011, 12h20

voici le lien twig que j'ai telechargé!

http://search.cpan.org/dist/XML-Twig/

**medsup** · 23/06/2011, 12h24

autre chose! comment je peux vérifier si le module (twig.pm) est vraiment installé (path sous windows)

**medsup** · 23/06/2011, 12h30

d'autre part, est-ce que ça marche aussi si j'utilise XML::SIMPLE (au lieu de XMl::Twig vue qu'il pose pas de problème du module) pour mon fichier XML (pas assez simple) écrit au dessus??

**mamax29** · 23/06/2011, 12h39

salut,

Quelle est ta distribution de Perl?

As-tu essayé de faire l'installation via l'utilitaire "cpan"

Code :

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

1
2
3
C:\>cpan
cpan> i/XML::Twig/
cpan> install XML::Twig

Consernant XML:Simple, c'est un très bon module (c'est celui que j'utilise). par contre lors du chargement du fichier XML, il le vérifie pour le valider, si il trouve une erreur dans le fichier XML, il ne voudra pas aller plus loin.

De plus il le charge entièrement en mémoire, et si le fichier XML est grand, cela prends pas mal de temps

**djibril** · 23/06/2011, 12h44

Envoyé par medsup

ben j'ai exécuté "makefile" si non j'ai un OS: win7 et perl 5.137
enfait, je comprend pas pourquoi perl package manager ne trouve pas le module Twing et l’installe tout simplement!!!

5.137 comment l'as tu installé ? Ce n'est pas une version stable !!

**medsup** · 23/06/2011, 13h08

Envoyé par mamax29

salut,

Quelle est ta distribution de Perl?

As-tu essayé de faire l'installation via l'utilitaire "cpan"

Code :

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

1
2
3
C:\>cpan
cpan> i/XML::Twig/
cpan> install XML::Twig

Consernant XML:Simple, c'est un très bon module (c'est celui que j'utilise). par contre lors du chargement du fichier XML, il le vérifie pour le valider, si il trouve une erreur dans le fichier XML, il ne voudra pas aller plus loin.

De plus il le charge entièrement en mémoire, et si le fichier XML est grand, cela prends pas mal de temps

quel type de problème?? si non mon XML n'est pas volumineux!

**medsup** · 23/06/2011, 13h10

Envoyé par djibril

5.137 comment l'as tu installé ? Ce n'est pas une version stable !!

ah désolé c'est un "activePerl 5.12.3.1204" win64

**djibril** · 23/06/2011, 13h15

Code :

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

ppm install http://www.bribes.org/perl/ppm/XML-Twig.ppd

**medsup** · 23/06/2011, 15h03

bon ça marche pas!!! j'ai un problème de proxy! je régle ça quand je re chez moi! pas de soucis

pour le moment je vais essayer avex XML::SIMPLE
tout d'abord je veux juste extraire des info de XMl ( mentionné en gras)

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
<measCollecFile xmlns="http://www.3gpp.org/ftp/specs/latest/rel-5/32_series/32432-610.zip#measCollec">
  <fileHeader fileFormatVersion="32.435 V6.0" vendorName="Nokia Siemens Networks" dnPrefix="@vantage Commander">
    <fileSender localDn="@Commander" elementType="@Commander"/>
    <measCollec beginTime="2011-06-22T12:45:01+01:00"/>
  </fileHeader>
  <measData>
    <managedElement userLabel="HFE_MNB_02" swVersion="NotAvailable"/>
    <measInfo>
      <granPeriod duration="PT900S" endTime="2011-06-22T11:59:03"/>
      <measTypes>ReceivedRequests-405.1.1.1 FailureRate-405.1.1.3 SentRequests-405.4.1.1 ReceivedResponses-405.4.1.2 FailureRate-405.4.1.3 ReceivedRequests-405.4.2.1 SentResponses-405.4.2.2 FailureRate-405.4.2.3</measTypes>
      <measValue measObjLdn="nedType=platform,PacketId=405,SymbolicNEName=HFE_MNB_02">
        <measResults>0 0 0 0 0 754 754 0</measResults>
        <suspect>false</suspect>
      </measValue>
    </measInfo>

mon script Perl le suivant:

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
#! /usr/bin/perl
use strict;
use warnings;
 
use XML::Simple;
 
my $parser = XML::Simple->new( KeepRoot => 1 );
 
 
my $KPI = 'KPI.txt';
open( my $FhKPI, '>', $KPI)
  or die("Impossible d'ouvrir le fichier $KPI\n$!");
 
my $doc = $parser->XMLin('xml_format.xml');
 
 
foreach my $measInfo( @{ $doc->{measCollecFile}->{measData}->{measInfo} } ) {
  print {$FhKPI} 'KPI : ';
  print {$FhKPI} $measInfo->{measTypes};
  print {$FhKPI} "\n";
  if ( $measInfo->{measValue} ) {
    print {$FhKPI} "value : ";
    print{$FhKPI} $measInfo->{measResults} ;
	 print {$FhKPI} "\n";
  }
 
 
}
 
close($FhKPI);

le resultat sera dans KPI.txt

Code :

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

1
2
KPI : ReceivedRequests-405.1.1.1 FailureRate-405.1.1.3 SentRequests-405.4.1.1 ReceivedResponses-405.4.1.2 FailureRate-405.4.1.3 ReceivedRequests-405.4.2.1 SentResponses-405.4.2.2 FailureRate-405.4.2.3
value :

value est toujours vide !!!!!

**medsup** · 23/06/2011, 17h33

pas de réponse??

**djibril** · 23/06/2011, 19h06

Code :

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

 print{$FhKPI} $measInfo->{measValue}{measResults} ;

Pour debugguer le contenu XML::Simple, il faut utiliser Data::Dumper.

Code :

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

use Data::Dumper;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
foreach my $measInfo( @{ $doc->{measCollecFile}->{measData}->{measInfo} } ) {
  print Dumper $measInfo;
  print {$FhKPI} 'KPI : ';
  print {$FhKPI} $measInfo->{measTypes};
  print {$FhKPI} "\n";
  if ( $measInfo->{measValue} ) {
    print {$FhKPI} "value : ";
    print{$FhKPI} $measInfo->{measValue}{measResults} ;
	 print {$FhKPI} "\n";
  }
 
 
}

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
45
46
47
48
49
$VAR1 = {
          'granPeriod' => {
                          'endTime' => '2011-06-22T11:59:03',
                          'duration' => 'PT900S'
                        },
          'measValue' => {
                         'suspect' => 'false',
                         'measResults' => '0 0 0 0 0 754 754 0',
                         'measObjLdn' => 'nedType=platform,PacketId=405,SymbolicNEName=HFE_MNB_02'
                       },
          'measTypes' => 'ReceivedRequests-405.1.1.1 FailureRate-405.1.1.3 SentRequests-405.4.1.1 ReceivedResponses-405.4.1.2 FailureRate-405.4.1.3 ReceivedRequests-405.4.2.1 SentResponses-405.4.2.2 FailureRate-405.4.2.3'
        };
$VAR1 = {
          'granPeriod' => {
                          'endTime' => '2011-06-22T11:59:03',
                          'duration' => 'PT900S'
                        },
          'measValue' => {
                         'suspect' => 'false',
                         'measResults' => '0 0 0 0 0 754 754 0',
                         'measObjLdn' => 'nedType=platform,PacketId=405,SymbolicNEName=HFE_MNB_02'
                       },
          'measTypes' => 'ReceivedRequests-405.1.1.1 FailureRate-405.1.1.3 SentRequests-405.4.1.1 ReceivedResponses-405.4.1.2 FailureRate-405.4.1.3 ReceivedRequests-405.4.2.1 SentResponses-405.4.2.2 FailureRate-405.4.2.3'
        };
 
$VAR1 = {
          'granPeriod' => {
                          'endTime' => '2011-06-22T11:59:03',
                          'duration' => 'PT900S'
                        },
          'measValue' => {
                         'suspect' => 'false',
                         'measResults' => '0 0 0 0 0 754 754 0',
                         'measObjLdn' => 'nedType=platform,PacketId=405,SymbolicNEName=HFE_MNB_02'
                       },
          'measTypes' => 'ReceivedRequests-405.1.1.1 FailureRate-405.1.1.3 SentRequests-405.4.1.1 ReceivedResponses-405.4.1.2 FailureRate-405.4.1.3 ReceivedRequests-405.4.2.1 SentResponses-405.4.2.2 FailureRate-405.4.2.3'
        };
$VAR1 = {
          'granPeriod' => {
                          'endTime' => '2011-06-22T11:59:03',
                          'duration' => 'PT900S'
                        },
          'measValue' => {
                         'suspect' => 'false',
                         'measResults' => '0 0 0 0 0 754 754 0',
                         'measObjLdn' => 'nedType=platform,PacketId=405,SymbolicNEName=HFE_MNB_02'
                       },
          'measTypes' => 'ReceivedRequests-405.1.1.1 FailureRate-405.1.1.3 SentRequests-405.4.1.1 ReceivedResponses-405.4.1.2 FailureRate-405.4.1.3 ReceivedRequests-405.4.2.1 SentResponses-405.4.2.2 FailureRate-405.4.2.3'
        };

**medsup** · 24/06/2011, 10h22

bonjour,
je vois pas pourquoi j'utilise "dump" je veux plus afficher l'arboresence XMl;
si non pour le code , quand je le test sur mon XML origine (qui n'est pas assez grand) il affiche juste la 1ere ligne de couple "KPI" et "value" ( avec des valeurs juste).

**medsup** · 24/06/2011, 10h26

aussi un message s'affiche après l’exécution du code perl
"Not a HASH reference at monscript"

**medsup** · 24/06/2011, 14h10

Envoyé par djibril

Code :

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

ppm install http://www.bribes.org/perl/ppm/XML-Twig.ppd

**djibril** · 24/06/2011, 14h28

Lit ceci pour apprendre à installer un module perl. Pour le reste, Dumper est juste là pour debugguer, si t'en veut pas, tu ne l'utilise pas, c'est tout

. Pour le reste, sans un XML cohérent, difficile de faire le test à ta place.

Analyser un fichier XML

Modules Perl

Discussions similaires

Partager

Partager