IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Modules Perl Discussion :

Analyser un fichier XML


Sujet :

Modules Perl

  1. #21
    Membre à l'essai
    Homme Profil pro
    Architecte réseau
    Inscrit en
    Mai 2011
    Messages
    65
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Architecte réseau

    Informations forums :
    Inscription : Mai 2011
    Messages : 65
    Points : 13
    Points
    13
    Par défaut
    merci pour le doc!

    le fichier xml dessous: je veux extraire le contenue des balise "measTypes" et "measResults"

    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
    <?xml version="1.0" encoding="UTF-8"?>
    <?xml-stylesheet type="text/xsl"?>
    <?xml-stylesheet href="MeasDataCollection.xsl"?>
    <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>
        <measInfo>
          <granPeriod duration="PT900S" endTime="2011-06-22T11:59:03"/>
          <measTypes>ReceivedMSUs-271.1.3 ReceivedBytes-271.1.1 SentMSUs-271.1.4 LinkName-271.1.0 UnavailibilityTime-271.1.7 CongestionTime-271.1.6 SentBytes-271.1.2 DiscardedMSUs-271.1.5</measTypes>
          <measValue measObjLdn="nedType=platform,PacketId=271,SymbolicNEName=HFE_MNB_02,ArrayIdWithIndex=271.1[0].0,IndexLabel=&quot;SLSTPCH1&quot;">
            <measResults>59840 0 114562 &quot;SLSTPCH1&quot; 0 0 0 0</measResults>
            <suspect>false</suspect>
          </measValue>
          <measValue measObjLdn="nedType=platform,PacketId=271,SymbolicNEName=HFE_MNB_02,ArrayIdWithIndex=271.1[1].0,IndexLabel=&quot;SLSTPCH2&quot;">
            <measResults>57207 0 105555 &quot;SLSTPCH2&quot; 0 0 0 0</measResults>
            <suspect>false</suspect>
          </measValue>
          <measValue measObjLdn="nedType=platform,PacketId=271,SymbolicNEName=HFE_MNB_02,ArrayIdWithIndex=271.1[2].0,IndexLabel=&quot;SLSTPMN1&quot;">
            <measResults>180127 0 114255 &quot;SLSTPMN1&quot; 0 0 0 0</measResults>
            <suspect>false</suspect>
          </measValue>
          <measValue measObjLdn="nedType=platform,PacketId=271,SymbolicNEName=HFE_MNB_02,ArrayIdWithIndex=271.1[3].0,IndexLabel=&quot;SLSTPMN2&quot;">
            <measResults>141079 0 105640 &quot;SLSTPMN2&quot; 0 0 0 0</measResults>
            <suspect>false</suspect>
          </measValue>
        </measInfo>
        <measInfo>
          <granPeriod duration="PT900S" endTime="2011-06-22T11:59:33"/>
          <measTypes>HLR_FE_GPRS_LUP_Failure_Rate-123 HLR_INS_SUB_DTA_Failure_Rate-124 HLR_FE_SRI-125 FE_Auth_Set_Failure_Rat-127 GPRS_L_U-204 NA04928369_1-269 HLR_FE_Update_Location_Failure_Rate-45 HLR_FE_Interrogation_Failure_Ratio-46 HLR_FE_Update_Location_Overall_Failure_Rate-47 HLR_FE_SS7_Link_Utilization_Rx-49 HLR_FE_SS7_Link_Utilization_Tx-50 HLR_FE_Number_of_Incoming_TCAP_Transactions-52</measTypes>
          <measValue measObjLdn="nedType=kpi,PacketId=66,SymbolicNEName=HFE_MNB_02">
            <measResults>0 0.0033 0 0.0018 696 13 0 0.00020 0.0087 0.00050 0.00050 13459</measResults>
            <suspect>false</suspect>
          </measValue>
        </measInfo>
      </measData>
      <fileFooter>
        <measCollec endTime="2011-06-22T13:00:01+01:00"/>
      </fileFooter>
    </measCollecFile>

    un exemple d'affichage:


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
      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
      0  0

  2. #22
    Membre à l'essai
    Homme Profil pro
    Architecte réseau
    Inscrit en
    Mai 2011
    Messages
    65
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Architecte réseau

    Informations forums :
    Inscription : Mai 2011
    Messages : 65
    Points : 13
    Points
    13
    Par défaut
    bonjour;

    avec Twig je viens d'écrire ce petit code. ça bug au niveau de varibale TwigmeasValue et TwigmeasResults!!!!


    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
    #!/usr/bin/perl
    use strict;
    use warnings;
    use XML::Twig;
     
    my $FichierXML = 'xml_format.xml';
     
    # Parsing façon intelligente en ne chargeant que le strict nécessaire en mémoire
    # Utilisation des handlers
    my $twig = new XML::Twig( Twig_handlers => { 'measInfo' => \&measInfo, }, );
     
    # Création du fichier résultat
    my $FichierResulat = 'resultat.txt';
    open( my $FhResultat, '>', $FichierResulat )
      or die("Impossible d'ouvrir le fichier $FichierResulat\n$!");
     
    # Création d'un objet twig
    $twig->parsefile($FichierXML);
     
    # Fermeture du fichier
    close($FhResultat);
     
    sub measInfo {
      my ( $twig, $TwigmeasInfo ) = @_;
     
      # measTypes
      print {$FhResultat} "KPI : ", $TwigmeasInfo->field('measTypes'), "\n";
     
       #measResults
      if ( my $measValue = $TwigmeasInfo->field('measValue ') ) {
         my $TwigmeasResults = $TwigmeasValue->children('measResults') ;
          print {$FhResultat} "value: ", $TwigmeasResults ->text, "\n";
        }
     
      $twig->purge;
      return;
    }
      0  0

  3. #23
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    Par défaut
    Regarde bien la documentation de Twig, tu n'as pas compris le rôle des méthodes children et field.
      0  0

  4. #24
    Membre à l'essai
    Homme Profil pro
    Architecte réseau
    Inscrit en
    Mai 2011
    Messages
    65
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Architecte réseau

    Informations forums :
    Inscription : Mai 2011
    Messages : 65
    Points : 13
    Points
    13
    Par défaut
    bon vue que j'ai toujours des problèmes avec les modules Twig!!!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Use of tied on a handle without * is deprecated at C:/Perl/lib/XML/Parser/Expat.
    pm line 447.
    alors je me suis tourné vers XML::LibXML qui me donne de bon 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
    30
    31
    32
    33
    34
    35
    #!/usr/bin/perl
    use strict;
    use warnings;
     
    use XML::LibXML;
     
    my $FichierXML = 'xml_format.xml';
    my $parser     = XML::LibXML->new();
     
     
    my $tree = $parser->parse_file($FichierXML);
     
    # Création du fichier résultat
    my $FichierResulat = 'resultat.txt';
    open( my $FhResultat, '>', $FichierResulat )
      or die("Impossible d'ouvrir le fichier $FichierResulat\n$!");
     
    # Racine du document XML
    my $root = $tree->getDocumentElement;
     
     
    my @measInfo = $root->getElementsByTagName('measInfo');
     
    foreach my $childid (@measInfo) {
     
      print {$FhResultat} "KPI : ",
        $childid->getElementsByTagName('measTypes')->[0]->getFirstChild->getData, "\n";
     
      foreach my $measResults ( $childid->getElementsByTagName('measResults') ) {
        print {$FhResultat} "value: ", $measResults->getFirstChild->getData, "\n";
      }
     
      }
     
    close($FhResultat);
    ici le résultat sera stoké dans un ficihier txt (exemple)

    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: 0 0 0 0 0 754 754 0
    je veux que le script affiche le résultat sous forme d'un tableau excel dont le quel chaque KPI (c"a dire =measTypes) prend sa valeur (value=measResults)



    des idées!!! plz
    Images attachées Images attachées  
      0  0

  5. #25
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    Par défaut
    Excuse moi de me permettre de te le dire, mais tu as une drôle de façon de travailler. J'ai l'impression que tu passes d'un module à un autre dès la première difficulté. Ce n'est pas une bonne façon de travailler. Tu seras toujours confronté à un souci, il faut apprendre à éplucher la documentation techniques des modules et pas zappé quand tu ne comprends pas.
    Le but est certes d'arriver à tes fins, mais tu n'apprends rien et perd plus de temps en fuyant la difficulté.

    J'ai précisé dans mon message ci-dessus que tu devais lire la documentation du module XML::Twig puis mieux cerner les méthodes field et children. Bref, passons !

    Pour ton texte, Tu n'as qu'as créer ton fichier txt en parsant les lignes pour remplacer les espaces par des tabulations. Excel pourra ensuite lire le fichier facilement.
      0  0

  6. #26
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    Par défaut
    Etant donné qu'un autre poste a été ouvert pour la gestion du fichier txt, je considère que ce poste et clos et il sera verrouillé.
      0  0

Discussion fermée
Cette discussion est résolue.
Page 2 sur 2 PremièrePremière 12

Discussions similaires

  1. [DOM] Analyser un fichier XML en PHP
    Par wehtam dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 06/03/2008, 19h52
  2. [SimpleXML] Analyser un fichier XML
    Par gannher dans le forum Bibliothèques et frameworks
    Réponses: 2
    Dernier message: 12/02/2008, 13h27
  3. [XML] [EXPAT] Analyser un fichier XML
    Par namstou3 dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 07/11/2007, 19h50
  4. [SimpleXML] Analyser un fichier XML avec PHP
    Par Someone86 dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 10/08/2007, 10h43
  5. [XML] Analyser un fichier XML en PHP
    Par aroua dans le forum Bibliothèques et frameworks
    Réponses: 2
    Dernier message: 06/07/2007, 12h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo