parseurs XML avec du perl

Version imprimable

Re-bonjour à tous et à toutes,

Je reviens vers vous car je me heurte à un problème concernant l'utilisation des parseurs pour lire un XML en Perl.
Je me suis inspiré (pour ne pas dire autre chose) du tuto réalisé par Djibril et Nicolas.
Voici mon problème j'ai un fichier XML que je souhaite décortiquer avec du perl afin de récupérer des valeurs...

Voici le XML vue avec Dumper

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 $VAR1 = {
          'queues' => {
                      'queue' => {
                                 'feed' => {
                                           'atom' => 'valeur1',
                                           'rss' => 'valeur2'
                                         },
                                 'stats' => {
                                            'consumerCount' => 'nombre1',
                                            'dequeueCount' => 'nombre2',
                                            'enqueueCount' => 'nombre3',
                                            'size' => '0'
                                          },
                                 'name' => 'INCOMING_1'
                               }
                    }
        };

Voici le code perl

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
=#!/usr/bin/perl -w
 
use strict;
use Switch;
use warnings;
use LWP::Simple;
 
use XML::Simple;
my $parser = XML::Simple->new( KeepRoot => 1 );
 
my $file_in="filein.xml";
 
 
getstore("@ de l'xml",$file_in);
my (%args, %queues);
my %error=('ok'=>0,'warning'=>1,'critical'=>2,'unknown'=>3);
my ($warninglevel, $criticallevel, $tmp, $evalcount, $switch, $queueselect, $queuevalue);
my $key = my $value = my $i = my $k = 0;
my $exitcode = "unknown";
 
 
# Creation du fichier resultat
my $FichierResulat = 'resultat.txt';
open( my $FhResultat, '>', $FichierResulat )
  or die("Impossible d'ouvrir le fichier $FichierResulat\n$!");
my $doc = $parser->XMLin($file_in);
 
 
use Data::Dumper;
print Dumper $doc;
 
 
 
#tout le fichier XML est dans $doc sous forme d'arbre
 
foreach my $valeur ( @{ $doc->{queues}->{queue}} ) {
 print {$FhResultat} 'Queue valeur : ';
 print {$FhResultat} $valeur->{name};
 print {$FhResultat} "\t";
 
 print {$FhResultat} 'Size : ';
 print {$FhResultat} $valeur->{stats}->{size};
 
 print {$FhResultat} 'DequeueCount : ';
 print {$FhResultat} $valeur->{stats}->{dequeuecount};
 
}
 
 
# Fermeture du fichier
close($FhResultat);

Lorsque je lance le script je me retrouve avec un jolie "Not an ARRAY reference at monscript.pl line 42."

Impossible de trouver le pk du comment...
Si vous avez une piste messieurs (dames) je suis preneur..

En vous remerciant.
Christophe

19/10/2015, 20h19
djibril

Bonsoir,

L'erreur est normale :

Code:

$doc->{queues}->{queue}

ne retourne pas une référence de tableaux, mais une référence de hash comme tu le vois dans ta sortie de Dumper.

Merci Djibirl..

J'ai fais quelques modifs sur mon script..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 print "Enqueue: $doc->{queues}->{queue}->{stats}->{enqueue} "; 36 print "Consumer: $doc->{queues}->{queue}->{stats}->{consumer} "; 37 print "Name: $doc->{queues}->{queue}->{name}\n"; 38 39 foreach my $appli ( @{$doc->{'queues'}{'queue'}} ) 40 { 41 print "name : $appli->{name}"; 42 print "stats : $appli->{stats}"; 43 print "consumer : $appli->{consumer}"; 44 } 45 47 close($FhResultat);
Cela m'affiche les valeurs que je veux à présent

Enqueue: 125 Consumer: 0 Name: INCOMING_1
Not an ARRAY reference at ./check_activemq_watch_CBP.pl line 39.

Mais toujours le not an array... Je fouille encore et toujours... je me suis inspiré du tuto http://perl.developpez.com/faq/perl/...des-references
Je vais tenter de l'adapter pour y mettre des seuils par la suite (nagios)..

Merci et je vous tiens au courant !

Chris

20/10/2015, 11h43
djibril
Au lieu d'écrire

Code:

foreach my $valeur ( @{ $doc->{queues}->{queue}} ) {

tu dois écrire
Code:

1 2 3 foreach my $valeur ( keys %{ $doc->{queues}->{queue}} ) { print "$valeur\n"; }
etc.

Comme je l'ai dit dans mon tutoriel, ce module est simple si on travail avec des fichiers XML basiques. Dès que cela commence à trop s'imbriquer, il faut maitriser les références et cela devient ardu. Je recommande d'utiliser XML::Twig pour le parsing de tes fichiers. J'ai mis plusieurs exemples dans ce forum de gauche à droite.