forum.lissyara.su

Добавлено: **2010-04-08 10:39:52**

Суть вследующем, есть есть функция на перл:

sub parse_switch {
   my ($community, $switch, $command) = @_;

   open(SNMP,"snmpwalk -v2c -c $community $switch $command|");
   while (<SNMP>) {
   chomp;
   my ($oid, $mac) = split /=\s*/;

   $_ = $mac;
   s/\s*$//;s/(?:[^:]+: )((?:[\dA-F]{2}?)+)/$1/;tr/A-F/a-f:/;s/ /:/g;
   $mac_table{$_} = $mac;  
   }
   close(SNMP)
}

Сейчас она возвращает мак адреса в виде 00:43:f5:43:23:32, а нужно чтобы еще и номер вилана. Команда:

Код: Выделить всё

snmpwalk -v2c -c $community $switch $command

выводит вот это:

Код: Выделить всё

RFC1213-MIB::atPhysAddress.325.1.172.16.13.132 = Hex-STRING: 00 03 CD 02 01 EF

где 325 номер вилана, а 00 03 CD 02 01 EF мак адрес. Может кто-нибудь поможет с этой ситуацией.

Добавлено: **2010-10-03 17:36:26**

переписать - не?

Добавлено: **2010-10-03 21:25:19**

Код: Выделить всё

sub parse_switch {
   my ($community, $switch, $command) = @_;

   open(SNMP,"snmpwalk -v2c -c $community $switch $command|");
   while (<SNMP>) {
   chomp;
   my ($oid, $mac) = split /=\s*/;

   $_ = $mac;
   s/\s*$//;s/(?:[^:]+: )((?:[\dA-F]{2}?)+)/$1/;tr/A-F/a-f:/;s/ /:/g;
   $mac_table{$_} = $mac;
   if ($oid =~ m/atPhysAddress\.(\d+)/) {
      $oid_table{$oid} = $1;
   }
   }
   close(SNMP)
}

forum.lissyara.su

Парсинг выдачи snmp в perl

Парсинг выдачи snmp в perl

Re: Парсинг выдачи snmp в perl

Re: Парсинг выдачи snmp в perl