view release on metacpan or  search on metacpan

bin/monm_snmp  view on Meta::CPAN

my $myobj = '';
my $myval = '';
if ($strictm) {
    $myobj = [$obj];
} elsif ($istable) {
    $myobj = $obj;
} elsif ($obj =~ /^\.?(\d+\.)*\d+$/) {
    if ($obj =~ /\.0$/) {
        $myobj = [$obj];
    } else {
        $myobj = SNMP::Varbind->new([$obj,0]);
    }
} else {
    $obj .= '.0' unless $obj =~ /\.0$/;
    $myobj = [$obj];
}

try {
    $myval = $istable ? $snmp->gettable($myobj) : $snmp->get($myobj);
} catch {
    print STDERR $_, "\n";