无法在 Perl 中获取扩展 SNMP 输出

Question

我编写了一个 Perl 脚本来放回一些 SNMP 值，效果很好。我现在已经在远程服务器上编写了一个脚本，并使用 SNMP 中的扩展函数来放置值从脚本到 SNMP。

如果我运行：

snmpget -v2c -c public 10.0.0.10 'NET-SNMP-EXTEND-MIB::nsExtendOutput1Line."cc_power"'

我得到结果：

NET-SNMP-EXTEND-MIB::nsExtendOutput1Line."cc_power" = STRING: 544

但是当我尝试使用我的脚本来获取信息时，它没有得到它。这是脚本：

#!/usr/bin/perl     

use strict;
use SNMP;
use RRDs;

my $rrd_db = "/storage/db/rrd/cc_power.rrd";

my $sess;
my $val;
my $error;

$sess = new SNMP::Session(DestHost => "10.0.0.10", Community => "public", Version => 2);
my $power = $sess->get('NET-SNMP-EXTEND-MIB::nsExtendOutput1Line.\"cc_power\"');

$error=RRDs::error;
die "ERROR while updating RRD: $error\n" if $error;

my $date=time;
print "Data Script has been run - Output: ${date}:${power}\n";

但没有返回任何内容，我不知道为什么......没有错误或任何东西，我错过了一些愚蠢的事情吗？

希望有人可以提供帮助，因为这让我发疯:)

Answer 1

我假设您使用了netsnmp snmpget。好吧，它向您隐藏了太多细节，因为它在后台加载 MIB 文档，并很好地将 OID 和 SNMP 值转换为各种用户友好的格式。

因此，下次请注意它执行的装饰并在您自己的代码中模拟它以达到相同的效果。