Utiliser une value dans un hash pour la value d'une autre clé dans le même hash

Bon, OK, le titre est pas super explicite.
Voici ce que je voudrais faire : j'ai une structure me permettant de manipuler des OIDs SNMP. Ma structure devrait ressembler à ça :

Code:

---

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

$ntqOids = { "RootOID" => { oid => ".1.3.6.1", }, "TotoOID" => { oid => $ntqOids->{"RootOID"}->{oid}.".4.0.11111", },   # Common Oids "AT" => { oid => $ntqOids->{"RootOID"}->{oid}.".2.1.3", table => $ntqOids->{"AT"}->{"oid"}.".1", entry => $ntqOids->{"AT"}->{"table"}.".1", entries => { "Index" => $ntqOids->{"AT"}->{"entry"}.".1", "PhysAddr" => $ntqOids->{"AT"}->{"entry"}.".2", "NetAddr" => $ntqOids->{"AT"}->{"entry"}.".3" }, }, };

---

Le problème, c'est que $ntqOids->{"TotoOID"}->{oid} me retourne "seulement" '.4.0.11111' alors qu'il devrait contenir '.1.3.6.1.4.0.11111'

Code:

---

1 2 3

print "===>".$ntqOids->{"TotoOID"}->{oid} ## ===> .4.0.11111 ## Devrait être .1.3.6.1.4.0.11111

---

Le problème est le même pour $ntqOids->{"AT"}->{entries}->{"Index"}

Comment se fait-ce ?
Que fait-je de faux ?

Merci d'avance pour votre aide !

Ch'Portos.

!UP! ?

C'est une très mauvaise idée de créer ton hash ainsi.
1- Tu le crées premièrement avec tes valeurs en dur
2- Tu lui rajoutes ce qu'il faut par la suite.

Code:

---

1 2 3 4 5 6 7 8 9 10

$ntqOids = { "RootOID" => { oid => ".1.3.6.1", }, }; $ntqOids->{TotoOID}{oid} = $ntqOids->{RootOID}->{oid}.".4.0.11111"; $ntqOids->{AT}{oid} = $ntqOids->{RootOID}->{oid}.".2.1.3"; $ntqOids->{AT}{table} = $ntqOids->{AT}->{oid}.".1"; ... ...

---

Citation:

---

Envoyé par djibril

C'est une très mauvaise idée de créer ton hash ainsi.
1- Tu le crées premièrement avec tes valeurs en dur
2- Tu lui rajoutes ce qu'il faut par la suite.

Code:

---

1 2 3 4 5 6 7 8 9 10

$ntqOids = { "RootOID" => { oid => ".1.3.6.1", }, }; $ntqOids->{TotoOID}{oid} = $ntqOids->{RootOID}->{oid}.".4.0.11111"; $ntqOids->{AT}{oid} = $ntqOids->{RootOID}->{oid}.".2.1.3"; $ntqOids->{AT}{table} = $ntqOids->{AT}->{oid}.".1"; ... ...

---

---

Aïe, j'espérais pouvoir éviter ça. En fait ce hash est "statique" et me sert de fichier de configuration pour mes OIDs SNMP (qui ne changent pas tous les jours). J'aimais la présentation "graphique" du hash pour sa lisibilité (en indentant correctement c'était assez facile de s'y retrouver).

Si personne n'a d'autre solution, je ferai comme ça.

Merci djibril !

Solution (très ?) sale : insérer plusieurs fois le même fichier (à chaque passe un niveau supplémentaire a déjà été instancié) :

Code:

---

1 2 3

print $@ if(!eval `cat module/snmp/data/oids.pl`); print $@ if(!eval `cat module/snmp/data/oids.pl`); print $@ if(!eval `cat module/snmp/data/oids.pl`);

---

Ça marche (mes OIDs ont les bonnes valeurs complètes), mais c'est pas top ...

Je vois vraiment pas en quoi l'autre écriture de dérange.
Fais des choses simples et propre, ce sera beaucoup plus simple à maintenir.
Sinon, si ton hash te sert de fichier de conf, pourquoi ne pas directement créer un fichier .INI de conf que tu parseras par la suite, ou bien un fichier XML.