#!/usr/bin/perl

use Getopt::Std;
use DBI;

use Net::SNMP::Util qw(:para);
use Net::SNMP::Util::OID qw(*);


my @SMhosts = ('10.4.20.21', '10.4.23.218', '10.4.24.20', '10.4.25.33');

# ---------- Data::Dumper setting ----------
# put output into hands of Data::Dumper :-)
use Data::Dumper;
use Storable qw(lock_nstore);

foreach $unitIP (@SMhosts) {

local($a,$b);
$Data::Dumper::Indent   = 1;
$Data::Dumper::Terse    = 1;
$Data::Dumper::Purity   = 1;
$Data::Dumper::Sortkeys = sub { [ sort {
    # if keys are numbers, then do numerical sort
    return ($a =~ /^\d+$/)? ($a <=> $b): ($a cmp $b);
} keys %{$_[0]} ] };

my %snmp = ();

    $snmp{"-version"} = "2c";
    $snmp{"-community"} = "g_wireless";
    $snmp{"-timeout"} = "2";


# ---------- kick function ----------
my $func = $opt{P}? 'snmpparawalk': 'snmpwalk';


my ( $result, $error );
{
    no strict;
    ( $result, $error ) = &$func(
        hosts => "$unitIP",
        oids  => '1.3.6.1.4.1.161.19.3.3.4.1.1',
                snmp  => \%snmp
    );
    die "[ERROR] $error\n" unless defined $result;
}


# ---------- output result ----------
print  Dumper($result);

}