Спасибо за подробную документацию, но немного не понятен следующий момент:



как именно считать этот 80000000?
поподробнее алгоритм, с примером для скажем 5го и 13 порта

Порт 5:

00001000 = 08h и дополняем 08000000

Порт 13:

0000000000001000 = 0008h и дополняем 00080000

А вместе 08080000.

Надо поставить 1 в тех разрядах которые соотвествуют номерам портов.

Кто бы написал красивый вариант Perl-кода для генерации кода для строки или массива с номерами портов свитча?

У меня есть. Он работает, то мне не нравится!-(

Покажи какой есть?

Камнями не кидать! Самому стыдно!-(

На входе ссылка на массив ($ports), содержащий список портов.
$des35xx->TotalNumOfPort - возвращает количество портов на модели свитча (см. пояснения ниже)

my %ports_list;
map { $ports_list{$_} = 1; } @$ports;

my $bits = $des35xx->TotalNumOfPort + 6;

my $bin_ports;
for ( my $i=1; $i<=$bits; $i++ ) {
if (exists $ports_list{$i}) {
$bin_ports .= '1';
}
else {
$bin_ports .= '0';
}
}

my @binary;
while ($bin_ports =~ s/^(.{8})// ) {
push @binary, '0b' . $1;
}

my $oct_ports = join '', map { pack('C', oct) } @binary;

В свою защиту могу сказать только одно - РАБОТАЕТ!-)

Есть модуль SNMP::Info. Я приписал к нему модуль для DES3550/3526 и потихоньку довожу до ума. Если кому интересно, то в личку...

Кстати в DES3550 назначение связки на определенный порт как-то по другому работает?
например:

snmpset -v2c -c private 192.168.98.15 1.3.6.1.4.1.171.11.64.2.2.7.2.1.4.10.129.26.10 x 80000000
Error in packet.
Reason: wrongLength (The set value has an illegal length from what the agent expects)
Failed object: SNMPv2-SMI::enterprises.171.11.64.2.2.7.2.1.4.10.129.26.10

и что интересно

snmpwalk -v1 -c public 192.168.98.15 1.3.6.1.4.1.171.11.64.2.2.7.2.1.4
SNMPv2-SMI::enterprises.171.11.64.2.2.7.2.1.4.10.129.26.10 = Hex-STRING: FF FF FF FF FF FF C0

просьба прокомментировать.

Естественно портов то у него 50. Соотвественно из разрядов должно быть 50 минимум, т.е. первое большее число кратное 4 = 13.

Тот скрипт, что выше, это умеет!-)

Забыл сказать, что приведенный выше скрипт расчитан на работу со свитчами по SNMP через MIB, где требуется:
PortList ::= OCTET STRING(SIZE (0..127))

Если Вы работаете через snmpwalk напрямую с oid'ми, то Вам поможет сформировать список портов следующий скрипт:

#!/usr/bin/perl -w

use strict;

# DES-3550 or DES3526
my $switch = 'DES-3550';

die "Usage: ./ports_hex.pl port1 port2 ...\n"
unless defined $ARGV[0];

my $bin_length = 0;
$bin_length = 56 if $switch eq 'DES-3550';
$bin_length = 32 if $switch eq 'DES-3526';

my %ports;
map { $ports{$_} = 1; } @ARGV;

my $ports_bin;
for ( my $i=1; $i<=$bin_length; $i++ ) {
if (exists $ports{$i}) {
$ports_bin .= '1';
}
else {
$ports_bin .= '0';
}
}

my $ports_hex;
while ($ports_bin =~ s/^(.{8})// ) {
$ports_hex .= sprintf("%02X",
unpack("N", pack("B32", substr("0"x32 . $1, -32))));
}

printf "ports_num: %s\n", join(' ', @ARGV);
printf "ports_hex: %s\n", $ports_hex;

---

Внутри скрипта надо задать для какого свитча Вы формируете список портов (DES-3526 или DES-3550. По умолчанию DES-3550. Для других свитчей можно расширить скрипт. Понятно, что количество бит это количество портов, которое округлено вверх до ближайшего значения, которое кратно восьми).

На входе список портов через пробел. Особых проверок не проводится, т.к. скрипт исключительно для тестовых целей.
На выходе строчка, которую можно отдать snmpwalk.

Например (для DES-3550!!!):

./ports_hex.pl 1
ports_num: 1
ports_hex: 80000000000000

./ports_hex.pl 1 9 17 25
ports_num: 1 9 17 25
ports_hex: 80808080000000

Надеюсь, что кому-нибудь поможет! Если найдете ошибки, пишите...

Блин, перла уже совсем не помню...
Может кто-нить подскажет как этот кусок будет выглядить в пхп ?

Это самое противное место. Операции с числами с учетом старших и младших байтов, в зависимости от ОС (не факт, что на 64-х битной ОС будет корректно работать).

Надо смотреть соответствующие преобразования для PHP.

Да я уже посмотрел...блин в пхп нету возможности запаковать c флагом B

Может быть есть какие-либо другие пути ?