Исходное сообщение
"ARP-spoofing и методы борьбы с ним" Отправлено Wulf, 25-Июн-07 15:08
Только парсить вывод snmpwalk-а перлом - это как-то не очень. Проще сделать по-человечески: use SNMP; my $sess = new SNMP::Session(...); die  $sess->{ErrorStr} if $sess->{ErrorNum}; my $if_number = $sess->get('ifNumber.0'); for my $if_num (1 .. $if_number) {   my $vars =  new SNMP::VarList(['dot1dTpFdbAddress', $if_num], ['dot1dTpFdbPort', $if_num]);   my($mac, $port) = $sess->get($vars);   # do what you want } Код не проверял, но должно быть что-то очень похожее.

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Только парсить вывод snmpwalk-а перлом - это как-то не очень. Проще сделать > по-человечески: > use SNMP; > my $sess = new SNMP::Session(...); > die $sess->{ErrorStr} if $sess->{ErrorNum}; > my $if_number = $sess->get('ifNumber.0'); > for my $if_num (1 .. $if_number) { > my $vars = new SNMP::VarList(['dot1dTpFdbAddress', $if_num], ['dot1dTpFdbPort', $if_num]); > my($mac, $port) = $sess->get($vars); > # do what you want > } > Код не проверял, но должно быть что-то очень похожее.
	Введите код, изображенный на картинке: