Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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 = '1.3.6.1.2.1.1.3.0'; 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);


Comment on Re: Perl Net::SNMP returns 1 instead of the desired outcome
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1059735]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (10)
As of 2014-08-21 12:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (134 votes), past polls