snmpwalk -v2c -c public 172.16.1.1
.1.3.6.1.2.1.17.7.1.2.2.1.2.<vlan_id>.<dec_m1>.<dec_m2>.<dec_m3>.<dec_m4>.<dec_m5>.<dec_m6> = INTEGER: <port>
<vlan_id> - vlanID
<dec_m1>.<dec_m2>.<dec_m3>.<dec_m4>.<dec_m5>.<dec_m6> - MAC в десятиричной форме
<port> - номер порта (если порт=0, то собственный)

#!/usr/bin/perl
$strings = `snmpwalk -v2c -c public $ARGV[0] 1.3.6.1.2.$ARGV[1].17.7.1.2.2.1.2 | grep "INTEGER: $ARGV[3]"`;
$strings =~ m/(\d+\.){5}\d+ /;
foreach $i (split (/\./, $&)) {$result .= sprintf("%x", $i) . ":";} $result =~ s/:$/\n/;
print $result;