structure de données, comment la parser ?

**frenchlion** · 22/09/2014, 13h47

bonjour,

je vous contacte car je n'arrive pas à faire un truc qui est à priori simple, j'ai du louper un épisode sur les hash de hashs de arrays de hashs.. & co..

Comment puis-je accéder au contenu de cette structure (provient 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
$VAR1 = {
          'db_conn_ora' => [
                           {
                             'password' => 'xxxxxxxxx',
                             'criticity' => '1',
                             'description' => 'database connection',
                             'port' => '15210',
                             'username' => 'toto',
                             'host' => 'hostmachinchose'
                           }
                         ],
          'ping' => [
                    {
                      'criticity' => '1',
                      'description' => 'Appserver Nodes availability',
                      'host' => 'hostici'
                    }
                  ],
          'TCP_Port' => [
                        {
                          'criticity' => '1',
                          'description' => 'RMI Port',
                          'port' => '40598',
                          'host' => 'hostla'
                        },
                        {
                          'criticity' => '1',
                          'description' => 'Oracle listener',
                          'port' => '1521',
                          'host' => 'hostoracleici'
                        }
                      ]
        };

pour l'instant j'ai testé un :

Code :

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

1
2
3
4
5
6
 
foreach my $mcheck (@{$data->{checks}}) {
  foreach my $check (keys %{ $mcheck }) {
    print "$check\n";
  }
}

et cela m'affiche bien le nom du check (ping, db_conn_ora ou TCP_Port), mais comment puis-je accéder aux sous valeurs ?

globalement, j'aimerais faire une boucle, pour chaque type de check trouvé, chopper les valeurs du dessous.

si vous voulez plus d'infos et que cela vous aide, je lis un XML avec XML::Simple qui ressemble à ça :

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
 
<?xml version="1.0" encoding="UTF-8"?>
 
  <morningcheck>
     <application>XXXX</application>
     <environment>UAT</environment>
     <checks>
 
           <ping
              criticity="1"
              description="Appserver Nodes availability"
              host="hostici" />
 
           <TCP_Port
              criticity="1"
              description="RMI Port"
              host="hostmachinchose"
              port="40598" />
 
           <TCP_Port
              criticity="1"
              description="Oracle listener "
              host="hostoracleici"
              port="1521" />
 
           <db_conn_ora
              criticity="1"
              description="atabase connection"
              host="hostmachinchose"
              port="1521"
              username="userici"
              password="xxxxxxxxx" />
 
     </checks>
  </morningcheck>

merci encore de vos lumières

en gros j'aimerais boucler sur les checks, en disant "pour chaque check trouvé (il peut y avoir plusieurs checks de chaque type, exemple plusieurs "ping" ou "tcp_port", ) alors fait telle et telle action avec les valeurs que tu trouves dedans, mais je n'arrive pas à récupérer les valeurs.

j'ai du mal avec ce concept de hash qui contient de l'array qui contient du hash etc..

merci !

**frenchlion** · 22/09/2014, 14h19

en faisant un peu joujou j'ai réussi à imprimer des valeurs, complètement au pif, avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
foreach my $mcheck (@{$data->{checks}}) {
  foreach my $val (values %{ $mcheck }) {
    foreach my $ar (@{$val}) {
      foreach my $foo (values %{ $ar }) {
        print "$foo\n";
      }
    }
  }
}

mais je suis pas certain que ça soit l'idéal ?
et surtout, comment jouer avec les clefs ?

je voudrais faire des conditions du genre : if ($check = 'ping') { commandes }, if ($check = 'tcp_port { commandes } etc..

**Philou67430** · 22/09/2014, 14h40

Si tu veux à la fois les clés et les valeurs, tu dois boucler sur les clés, et récupérer les valeurs par déréférencement :

Quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
foreach my $mcheck (@{$data->{checks}}) {
  foreach my $check (keys %{ $mcheck }) {
    my $val = $data->{checks}->{$check};
    foreach my $ar (@{$val}) {
      foreach my $foo (values %{ $ar }) {
        print "$foo\n";
      }
    }
  }
}

**frenchlion** · 22/09/2014, 14h52

merci pour ta réponse, et c'est ce que j'essaye de faire mais ça veut pas

(cf pour ton code j'ai un Not a HASH reference at ./mcapi.pl line 80 pour la ligne my $val = $data->{checks}->{$check}

vraiment galère ces trucs :-(

**Philou67430** · 22/09/2014, 15h23

Je n'avais pas étudié en détail ta structure de donnée... il y a un "tableau" avant le hash car certaines "balises" (TCP_port par exemple) peuvent être présentent plusieurs fois : il te faut donc boucler sur ces différentes instances :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
foreach my $mcheck (@{$data->{checks}}) {
  foreach my $check (keys %{ $mcheck }) {
    my $i = 0;
    for my $ar (@{$data->{checks}->{$check}}) {
      foreach my $key (keys %{ $ar }) {
        my $foo = $ar->{$key};
        print "data->{checks}->{$check}->[$i]->{$key} = $foo\n";
        $i++;
      }
    }
  }
}

L'usage de $i n'est là que pour le print, il n'est pas utile à la boucle.
Je n'ai pas testé.

**frenchlion** · 22/09/2014, 16h39

merci de ton aide,
en fait ça ne marche pas le keys sur $mcheck, j'ai l'erreur :

Can't use string ("db_conn_ora") as an ARRAY ref while "strict refs" in use at ./mcapi.pl line 68.

mais grâce à ton aide j'ai fait fonctionné le truc avec :

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 $mcheck (@{$data->{checks}}) {
  # print ici a faire
  foreach my $check (values %{ $mcheck }) {
    foreach my $ar (@{$check}) {
      print "-----------------------------------------------\n";
      foreach my $key (keys %{ $ar }) {
        print "key : $key\n";
        print "val : " . $ar->{$key} . "\n";
      }
    }
  }
}

en revanche, j'aimerais printer le type de check, juste après la première ligne, et je n'y arrive pas non plus (là ou j'ai mis le # print ici a faire) afin de faire une condition dessus si le check est d'un certain type etc.

**dmganges** · 22/09/2014, 16h40

Bonjour,
Je me suis amusé en souvenir du bon temps avec Oracle

et surtout pour réviser tableaux et hash

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
50
51
52
53
54
55
56
57
58
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Data::Dumper;
 
my $VAR1 = {
          'db_conn_ora' => [
                           {
                             'password' => 'xxxxxxxxx',
                             'criticity' => '1',
                             'description' => 'database connection',
                             'port' => '15210',
                             'username' => 'toto',
                             'host' => 'hostmachinchose'
                           }
                         ],
          'ping' => [
                    {
                      'criticity' => '1',
                      'description' => 'Appserver Nodes availability',
                      'host' => 'hostici'
                    }
                  ],
          'TCP_Port' => [
                        {
                          'criticity' => '1',
                          'description' => 'RMI Port',
                          'port' => '40598',
                          'host' => 'hostla'
                        },
                        {
                          'criticity' => '1',
                          'description' => 'Oracle listener',
                          'port' => '1521',
                          'host' => 'hostoracleici'
                        }
                      ]
        };
 
print Dumper($VAR1);
print "\n\n";
 
foreach my $mcheck ($VAR1) {
	foreach my $data (keys(%$mcheck)) {
		print "\n$data\n";
		foreach my $hash (@{$mcheck->{$data}}) {
			foreach my $k (keys(%$hash)) {
				printf "%12s : %s\n", $k, $hash->{$k};
			}
			print "\n";
		}
	}
}
 
# La structure pointe sur un hash
# Chaque valeur du hash contient un ou plusieurs tableaux
# Chaque tableau contient à son tour un hash

**Philou67430** · 22/09/2014, 17h17

Envoyé par frenchlion

merci de ton aide,
en fait ça ne marche pas le keys sur $mcheck, j'ai l'erreur :

Can't use string ("db_conn_ora") as an ARRAY ref while "strict refs" in use at ./mcapi.pl line 68.

Je pense que tu n'as pas mis la structure depuis la racine, ce qui ne me permettait pas de donner le bon code. Si l'on veut pouvoir tester, il faudrait que tu donnes le contenu de la structure depuis la racine.

**frenchlion** · 23/09/2014, 13h26

effectivement désolé philou

@dmganges : excellent merci encore !
je vais aller lire de la doc là dessus, ça me paraît pas sorcier, j'imagine qu'avec un peu de lecture ça va rentrer tout seul merci encore !

structure de données, comment la parser ?

Langage Perl

Discussions similaires

Partager

Partager