Discussion :

[sip21]

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.

[Lolo78]

Bonjour,

à quoi ressemble un sous-OID?

[sip21]

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)

[djibril]

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

[Lolo78]

Peut-être quelque chose dans ce genre:

Code :

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

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 :

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

1245

[Dra_Gun]

Hello,

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

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

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

%users = %{$result};

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