Bonjour
J'essaye de faire du perl avec le protocole SNMP
en php, mon petit script fonctionne, mais je ne trouve pas l'equivalent en perl...
voilà mon script php:
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 <?php $IP = "11.5.4.161"; $community = 'test'; $oids = array('interfaces' => '.1.3.6.1.4.1.9.9.156.1.2.1.1.7'); $walk = @snmpwalkoid($IP, $community, $oids['interfaces']); print_r($walk); foreach ($walk as $key => $element) { $ligne = $key . " => " . $element; echo "\n".$ligne."\n"; } ?>
en perl j'arrive à récupérer des données quand il ne renvoie pas de tableau, exemple:
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
21 my $oid ='1.3.6.1.4.1.9.9.156.1.2.1.1.7.2'; my ($session, $error); # variable pour la session SNMP sub connect(){ ($session, $error) = Net::SNMP->session( -hostname => $ip_address, -community => $community, -version => 'snmpv2c', -timeout => 3, ); request_error() if (!defined($session)); } sub request_error(){ print "Error : no response from SNMP"; $session->close; exit $OUTPUT{UNKNOWN}; } &connect(); my $resulttemp = $session->get_request($oid); request_error() if (!defined($resulttemp));
Ma question est pour ceux qui pourraient m'aider,
comment puis je faire en perl mon code php?
j'ai essayé un $session->getTable($oid); mais ça ne fonctionne pas
Merci d'avance
Partager