Perl Can'；t使用未定义的值作为哈希引用
我正在尝试在wlc上进行snmpwalk，以了解AP状态。我对perl真的是个新手，所以请容忍我，但我一直在与perl合作。我能够很好地获得CPU利用率，但这只是一个get请求，因为这是一次散步Perl Can'；t使用未定义的值作为哈希引用,perl,snmp,nagios,Perl,Snmp,Nagios,我正在尝试在wlc上进行snmpwalk，以了解AP状态。我对perl真的是个新手，所以请容忍我，但我一直在与perl合作。我能够很好地获得CPU利用率，但这只是一个get请求，因为这是一次散步 我的输入：perltest.pl-h10.192.54.30-cpublic-O.1.3.6.1.4.1.14179.2.2.1.1.6.0-w20-c30 守则： #!/bin/perl use strict; use warnings; use Net::SNMP; use Getopt::Long
我的输入：
perltest.pl-h10.192.54.30-cpublic-O.1.3.6.1.4.1.14179.2.2.1.1.6.0-w20-c30#!/bin/perl
use strict;
use warnings;
use Net::SNMP;
use Getopt::Long qw(:config no_ignore_case);
my $hostaddr = '';
my $community = '';
my $crit = '';
my $warn = '';
my $oid = '';
GetOptions(
"host|H=s" => \$hostaddr,
"community|C=s" => \$community,
"crit|c:s" => \$crit,
"warn|w:s" => \$warn,
"oid|O=s" => \$oid);
print "$hostaddr $community $crit $warn $oid\n";
my ($session, $error) = Net::SNMP->session(
-hostname => "$hostaddr",
-community => "$community",
-timeout => "30",
-port => "161");
if (!defined($session)) {
printf("ERROR: %s.\n", $error);
exit 1;
}
my $response = $session->get_table( -baseoid => $oid );
if (! defined $response) {
die "Failed to get OID '$oid': " . $session->error;
}
foreach my $key (keys %$response) {
print "$key: $response->{$key}\n";
}
my $err = $session->error;
if ($err){
return 1;
}
print "\n";
exit 0;
10.192.54.30 public 30 20 .1.3.6.1.4.1.14179.2.2.1.1.6.0
Can't use an undefined value as a HASH reference at test.pl line 26.
- 你打错了
。至少，您必须传递$session->get\u request
选项和OID的arrayref。看-varbindlist
在出错时返回get\u请求
，并且由于undef
不是散列引用，因此不能取消对它的引用。在尝试使用undef
执行某些操作之前，必须检查错误$response- 您不应该仅为了打印而将
的内容复制到单独的散列中$response
my $response = $session->get_request( -varbindlist => [$desc] );
if (! defined $response) {
die "Failed to get OID '$desc': " . $session->error;
}
foreach my $key (keys %$response) {
print "$key: $response->{$key}\n";
}
# Alternatively,
# use Data::Dumper; print Dumper $response;
get_request（）在代码中失败。因此，$response对象未定义。您尝试访问未定义的值。Print$err以获取更多信息。我在第29行添加了Print$err并获得相同的输出。您确定吗$session->error（）应该打印get_request（）中的错误。请参阅：您的代码有
严格警告$sessionusesnmpgetsnmpwalksnmpwalk.1.3.6.1.4.1.14179.2.2.1.1.6