我是新来的perl,但是我正在为nagios写一个插件。我有一个简单的get请求失败,但如果我使用snmpwalk尝试相同的请求,它将起作用。当snmpwalk工作时,Perl Net :: SNMP返回noSuchName
我的代码是:
#!/usr/bin/perl -w
use strict;
use Net::SNMP;
my $host = '10.10.10.203';
my $community = 'myComm';
my $session;
my $error;
my $response = undef;
($session, $error) = Net::SNMP->session(
-hostname => $host,
-version => 2,
-community =>$community,
-port => 161,
-timeout => 20
);
my $uptimeOID = '1.3.6.1.2.1.1.3.0';
my $myOID = '1.3.6.1.4.1.7933';
if(!defined($response = $session->get_request($myOID)))
{
if($session->error_status == 2)
{
my $sessionError = $session->error;
print ("($sessionError) OID not supported ($myOID).\n");
}
}
else
{
print ("$response");
}
如果我运行此脚本就会失败说的noSuchName,但如果运行:
snmpwalk -v 2c -c myComm 10.10.10.203 1.3.6.1.4.1.7933
我得到我想要的响应。有人知道为什么这不会工作?
如果我用这个脚本检查正常运行时间OID,它将按照它应该的方式工作。