#!/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);

}

##</code><code>##

[root@cms3 scripts]# ./snmpwalk.pl
{
  '10.4.20.21' => {          #IP Address from CPE equipment.
    '1' => '0x0a003edd8706', #Bridge table entry #1
    '2' => '0x1a003edd8706', #Bridge table entry #2
    '3' => '0xc03f0eddfb3b'  #Bridge table entry #3
  }
}
{
  '10.4.23.218' => {
    '1' => '0x0a003ea2643e',
    '2' => '0x1a003ea2643e',
    '3' => '0x000c428b8e11'
  }
}
{
  '10.4.24.20' => {
    '1' => '0x0a003e67a706',
    '2' => '0x1a003e67a706',
    '3' => '0x200cc8136ef9'
  }
}
{
  '10.4.25.33' => {
    '1' => '0x0a003eb1b2fc',
    '2' => '0x1a003eb1b2fc',
    '3' => '0xd850e6bd6330',
    '4' => '0x023d9d690d52',
    '5' => '0xec2280985442',
    '6' => '0x406186c1ef32',
    '7' => '0x0024219b0d6b',
    '8' => '0x00237d7cd808',
    '9' => '0x00272201b896',
    '10' => '0xf8e903e44b30',
    '11' => '0x52f5febdca85',
    '12' => '0xbe95360a4d5c',
    '13' => '0xac9e17b6007c',
    '14' => '0x000b7483457d',
    '15' => '0xaa069206530b',
    '16' => '0x000c2955956e',
    '17' => '0x54bef72d8cc2',
    '18' => '0x0000859f7d3f',
    '19' => '0x406186c2e658',
    '20' => '0x02759adcc739'
  }
}