Créer des tables de hash dynamiquement

Bonjour,

Dans le cadre d'un petit script de comparaison d'une configuration particulière sur plusieurs équipements, je rencontre le problème suivant.

En fonction d'un paramètre pool, je récupère X équipements. Pour chaque équipement, je me connecte dessus et je récupère les valeurs qui m'intéressent tout en les stockant dans un fichier.

J'en arrive au problème. J'aimerai pour créer une table de hash (ayant pour nom le nom de l'équipement si possible) pour chaque équipement que je récupère. Une fois les 5 tables de hash créées je pourrais effectuer la comparaison des X fichiers.

Voici le code que je suis entrain de tester mais qui ne marche toujours pas :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

GetOptions ("pool=s" => \$pool) or die("Error in command line arguments\n");   if (defined($pool) && ($pool eq "idf" || $pool eq "est" || $pool eq "ouest")) { @tabMME = open_file($pool); for ($i = 0 ; $i < scalar(@tabMME) ; $i++) { %{$tabMME[$i]} = (); open(FILE,">","$_.precedences.txt") or die ("Erreur lors de l'ouverture du fichier"); @output = `~/script_mme_precedence/bin/recup_precedences.exp xxx`; foreach my $v (@output) { if ($v =~ "prece") { %{$tabMME[$i]}{$cpt} = $v; print FILE "$_"; $cpt++; } } } foreach my $k (values(%{$tabMME[1]})) { print "Valeur=$k\n"; } }

---

Merci d'avance,

Cdlt

Bonjour,

c'est très difficile de te répondre quand on ne sait pas à quoi ressemble tes données.

Que fait la fonction open_file, que retourne-t-elle et que retrouve-t-on dans le tableau @tabMME?

Que renvoie l'appel externe `~/script_mme_precedence/bin/recup_precedences.exp epcfaubemm01` et que contient @output?

Je vois que tu utilises un tableau (simple) @tabMME et réutilises le même nom de variable pour une structure de données plus complexe. C'est une mauvaise idée, c'est sans doute faux, et, même si c'est juste, c'est le meilleur moyen de se perdre.

La syntaxe :

Code:

---

1 2	%{$tabMME[$i]}{$cpt} = $v;

---

n'est probablement pas correcte. Il faut peut-être la corriger comme suit:

Code:

---

1 2	${$tabMME[$i]}{$cpt} = $v;

---

mais cela corrige la syntaxe, je ne suis pas sûr que ça fasse ce que tu veux.

Le point le plus important: commence ton script avec les pragmas:

Code:

---

1 2 3

use strict; use warnings;

---

et déclare tes variables avec my.

Au moins, le compilateur pourra t'indiquer un bon nombre de tes erreurs.

Pour que l'on puisse t'aider plus, donne une version de ton programme codant en dur les données en entrée (le contenu des tableaux @tabMME et @output), pour que l'on puisse comprendre ces données et tester ton programme.

J'ai pas préciser que j'avais déjà mis tous les use au préalable avec la déclaration des différentes variables etc.

En fonction du pool tabMME peut contenir :

idf :
- a1
- a2
- a3

est :
- b1
- b2
- b3
- b4
- b5

ouest :
- c1
- c2
- c3
- c4
- c5

Je veux créer 3 ou 5 tables de hash suivant le pool passé en paramètre. Exemple :
pool = ouest
%c1
%c2
%c3
%c4
%c5

Dans chacun de ces hash, je mettrai en clé ou en valeur les différentes lignes que me renvoie @output ce qui me permettra de comparer, dans ce cas la, les 5 fichiers (c1.txt,c2.txt,c3.txt,c4.txt,c5.txt).

Les données sont confidentielles mais c'est du texte.

Citation:

---

Envoyé par ciols

J'ai pas préciser que j'avais déjà mis tous les use au préalable avec la déclaration des différentes variables etc.

---

Dans ce cas, tu ne fais apparemment pas les déclarations au bon endroit. Il ne faut pas déclarer toutes les variables au début, mais les déclarer dans la plus petite portée possible (sinon on perd une bonne partie du bénéfice de les déclarer).

Pour le reste, je n'ai pas le temps maintenant, je verrai plus tard si je peux te proposer un exemple de code à partir des éléments un peu parcimonieux que tu donnes.

Voilà où j'en suis en ce moment :

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

sub open_file { my ($fichier) = @_; $fichier = "$fichier.txt"; open(FILEP,"~/script_mme_precedence/conf/$fichier") or die ("Erreur lors de l'ouverture du fichier"); my @lines = <FILEP>; foreach(@lines) { chomp($_); push(@tabMME,$_); } close(FILEP); return @tabMME; }   ################################################### # # # Traitement # # # ###################################################   GetOptions ("pool=s" => \$pool) or die("Error in command line arguments\n");   if (defined($pool) && ($pool eq "idf" || $pool eq "est" || $pool eq "ouest")) { @tabMME = open_file($pool); for ($i = 0 ; $i < scalar(@tabMME) ; $i++) { open(FILE,">","~/script_mme_precedence/data/$pool/$tabMME[$i].precedences.txt") or die ("Erreur lors de l'ouverture du fichier"); push(@tabFile, "$tabMME[$i].precedences.txt"); @output = `~/script_mme_precedence/bin/recup_precedences.exp $tabMME[$i]`; foreach (@output) { if ($_ =~ "prece") { print FILE $_; } } close(FILE); }   open(FILEC,">","~/script_mme_precedence/data/$pool/resultat_comp.txt") or die ("Erreur d'ouverture du fichier\n"); foreach my $premierFile (@tabFile) { open(FFILE,$premierFile); while (<FFILE>) { chomp; $hash_fic1{$_} = 1; } foreach my $secondFile (@tabFile) { open(SFILE,$secondFile); while (<SFILE>) { chomp; if (exists $hash_fic1{$_}) { $hash_fic1{$_} ++; } else { print FILEC "Ligne différente dans $secondFile : $_\n"; } } close(SFILE); } close(FFILE); } close(FILEC); }

---

Le script en expect permet de se connecter sur les différents équipements et de lancer la commande. Le seul truc qui ne marche pas est la comparaison des fichiers. Je pense que je ne m'y prends pas bien pour les comparer mais pour le moment c'est le seul moyen que je vois

Je me suis débrouillé avec cette méthode qui marche plutôt pas mal.

Merci.