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