in reply to Storing SNMP Next Request into a Hash or Array

get_next_request() returns a hash reference. Try something like the following untested code:
my @oids = ( '.1.3.6.1.2.1.4.20.1.2' );
my $req = $snmp->get_next_request(
  -varbindlist => \@oids,
);
$snmp->close;
while (my ($key,$value) = each %{$req}) {
  print "$key = $value\n";
}

[download]

Thanks to zby for pointing out the array reference.

Replies are listed 'Best First'.
Re: Re: Storing SNMP Next Request into a Hash or Array
by CongoGrey (Sexton) on May 13, 2003 at 16:30 UTC
    Thanks Muskrat and zby you helped steer me into the light. I have one more question and I think that this will make my script very large. Below is the script so far and it looks but it will not 'walk' the MIB table it only gets the first responce and then stops. I would have thought that the get_next_request would have built into it a way to keep going until the last entry of the MIB table.
    What i am basically looking for is what is the best looping mechanism for this purpose? 
    #!/usr/local/bin/perl -w

use strict;
use Net::SNMP;
use Data::Dumper;
my $snmp = Net::SNMP->session(
                                -hostname               => '192.3.3.1'
+,
                                -community              => 'public',
                                -port                   => '161',
);
my @oid;
$oid[0]='.1.3.6.1.2.1.4.20.1.2';
my @vars = $snmp->get_next_request(
                                -varbindlist => \@oid,
);
my $error = $snmp->error;
$snmp->close;
print Dumper(\@vars);
print Dumper(\@oid);
print "the OID array is\n";
print "@oid\n";
print "The Error??\n";
print "$error\n";

    [download]
[reply]
[d/l]
      Okay i am very close now I can now walk the complete MIB but, my Perl script does not seem to let me store the information into a hash: 
      my %var = $snmp->get_table( -baseoid => $oid);

      [download]
      Gives me an error:
      Reference found where even-sized list expected
      But, if I make the 'var' variable a '$' and use Dumper the information is there: 
      $VAR1 = [
          {
            '.1.3.6.1.2.1.4.20.1.2.10.61.17.1' => '0',
            '.1.3.6.1.2.1.4.20.1.2.10.61.10.1' => '42',
            '.1.3.6.1.2.1.4.20.1.2.10.76.7.1' => '47',
            '.1.3.6.1.2.1.4.20.1.2.10.61.0.126' => '1'
          }
        ];

      [download]
[reply]
[d/l]
[select]

        my $table = $snmp->get_table( -baseoid => $oid); # $table contains a h
+ash reference
print $table->{'.1.3.6.1.2.1.4.20.1.2.10.61.10.1'},$/; # displays 42

        [download]

        Read tye's References quick reference for a more detailed explaination.

[reply]
[d/l]

In Section Seekers of Perl Wisdom