不能使用未定義的值作爲HASH參考

Question

我正在嘗試對wlc上的AP狀態執行snmpwalk。我真的很陌生，因此對我裸露，但我正在與this guide。我能夠很好地獲得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 $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. 

Answer 1

幾個問題：

• 你打電話$session->get_request錯誤。至少，您必須通過-varbindlist選項和一個OID陣列參考。請參閱documentation。

• 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;