Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: Perl Net::SNMP returns 1 instead of the desired outcome

by Khen1950fx (Canon)
on Oct 25, 2013 at 19:18 UTC ( #1059735=note: print w/replies, xml ) Need Help??

in reply to Perl Net::SNMP returns 1 instead of the desired outcome

I used snmpv1, blocking, and printf instead of print; also, I added DEBUG_ALL to make it more interesting:
# /usr/bin/perl use strict; use warnings; use Net::SNMP qw(:snmp DEBUG_ALL); my $OID = ''; my ( $session, $error ) = Net::SNMP->session( -hostname => shift || 'localhost', -community => shift || 'public', -version => 'snmpv1', -debug => DEBUG_ALL, ); my $result = $session->get_request( -varbindlist => [$OID], ); if ( !defined $result ) { $error = $session->error(); printf "GET_REQUEST ERROR: %s: %s\n", $session->error(); $session->close(); exit(1); } printf "The TimeTicks for host '%s' is %s\n", $session->hostname(), $result->{$OID}, "\n"; $session->close; exit(0);

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1059735]
[ambrus]: what kind of restaurant?
[LanX]: with different specialized employees in different rooms
[LanX]: communication overhead calls for sensible management
[ambrus]: "different specialized employees in different rooms" => so, there's a cleaner guy who cleans up the vomit from the bathroom every morning?

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2017-09-22 13:43 GMT
Find Nodes?
    Voting Booth?
    During the recent solar eclipse, I:

    Results (264 votes). Check out past polls.