0:16:3e:3:26:24 -> 301
0:30:48:32:da:a6 -> 301
0:30:48:c1:eb:86 -> 301
0:30:48:8d:eb:99 -> 34
0:9:3d:14:5d:c2 -> 65
0:e:c:4b:55:c8 -> 90

#!/usr/bin/perl

our $community = "comm";
our $switch = "1.1.1.1";

open(SNMP,"snmpwalk -On -OQ -v1 -c $community $switch .1.3.6.1.2.1.17.4.3.1.1|") or die "Can't run snmpwalk";
while (<SNMP>)
{
chomp;
s@.1.3.6.1.2.1.17.4.3.1.1@@;
my ($oid, $mac) = split /=\s*/;

$_=$mac;
s@"@@g; s@\s*$@@; s@ @:@g; s@(.)@\l\1@g; s@^0@@; s@:0@:@g;$mac_table{$_}=$oid;
}
close(SNMP);

open(SNMP,"snmpwalk -On -OQ -v1 -c $community $switch .1.3.6.1.2.1.17.4.3.1.2|") or die "Can't run snmpwalk";
while (<SNMP>)
{
chomp;
s@.1.3.6.1.2.1.17.4.3.1.2@@;
my ($oid, $port) = split /=/;
$ports_table{$oid}=$port;
}
close(SNMP);

for $oid (keys %mac_table) {
print "$oid -> ".$ports_table{$mac_table{$oid}}."\n";
}

Скрипт показывает MAC + VLAN ID. Чтобы отображалась связка MAC + Port нужно использовать OID 1.3.6.1.2.1.17.4.3.1.2