不能将未定义的值用作哈希引用

Question

我正在尝试对WLC上的AP状态进行SNMPWALK。我真的是Perl的新手，所以请忍受我，但我正在研究本指南。我能够获得CPU利用率，但这只是一个散步的请求。

我的输入：perl test.pl -H 10.192.54.30 -C public -O .1.3.6.1.4.1.14179.2.2.1.1.6.0 -w 20 -c 30

代码：

#!/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 $oidn";
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.

Answer 1

几个问题：

• 您正在称呼$session->get_request错误。至少，您必须通过-varbindlist选项和一个OID阵列。请参阅文档。

• get_request在错误时返回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;