Discussion :

[ChPortos]

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 :

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
$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 :

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

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.

[ChPortos]

!UP! ?

[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 :

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

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";
...
...

[ChPortos]

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 :

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

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 !

[ChPortos]

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

Code :

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

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 ...

[djibril]

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.