Lister OID et les comparer à une valeur

Version imprimable

05/10/2012, 11h06
sip21

Lister OID et les comparer à une valeur

Bonjour à tous,

Je découvre le perl (habitude du VB) et je galère.

Je dois faire un script pour nagios qui liste tous les "sous-oid" de 1.3.6.1.4.1.9.9.150.1.1.3.1.2 et comparer chaque valeur de sous-oid avec une valeur que je passe en paramètre.

Comment jouer avec les OID en perl? Si quelqu'un à une piste, je suis preneur.

Merci.
05/10/2012, 13h16
Lolo78

Bonjour,

à quoi ressemble un sous-OID?
05/10/2012, 13h37
sip21

Citation:

Envoyé par Lolo78

Bonjour,

à quoi ressemble un sous-OID?

Si l'utilisateur est connecté, il apparait dans un sous-oid de 1.3.6.1.4.1.9.9.150.1.1.3.1.2 (ex: 1.3.6.1.4.1.9.9.150.1.1.3.1.2.1245)
Il s'agit d'une chaine de caractère incluant un @ (c'est un email)
05/10/2012, 13h42
djibril

Je ne sais pas si tu peux trouver ton bonheur ici.

Peut-être quelque chose dans ce genre:
Code:

1 2 3 my $oid = '1.3.6.1.4.1.9.9.150.1.1.3.1.2'; my $val = '1.3.6.1.4.1.9.9.150.1.1.3.1.2.1245'; print $1 if $val =~ /${oid}\.(\d+)$/;
Ce qui imprime:

Code:

1245

Hello,

tu peux trouver la suite des OID de cette façon là:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use Net::SNMP;
 
$oid = "1.3.6.1.4.1.9.9.150.1.1.3.1.2";
($session, $error) = Net::SNMP->session( -hostname  => $host,
					-community => $community,
					-version   => 'v2c',
					-timeout   => 2,
					-retries   => 3,
					-translate => [-all => 0],
					);
 
die "ERROR : $error" if ($error);
 
$result = $session->get_table( -baseoid => $oid );
 
print Dumper($result);

et tes users ainsi:

Code:

%users = %{$result};

je pense qu'avec ca, tu devrais arriver à avoir tous tes users :)