Научите парсить CSTA сообщения.
Нашёл библиотеку NET::CSTA.
С помощью такого:  

Смог получить голую ASN.1 структуру:

Как её заполнить CSTA директивами? Чтобы получить это:



Это сообщение отредактировал(а) Cyr - 7.4.2014, 12:56

похоже, вы в $pdu длину потеряли

arto,  нет. с чего вы так решили?

Это сообщение отредактировал(а) Cyr - 7.4.2014, 14:24

длина вашего pdu 55 байтов, а первые октеты у вас A1 34.
Или я ошибаюсь?

длина pdu - 54 байта, а длина сообщения после первого октета равна 52 (34h).
так что там всё нормал. 

# print A1 34 02 01 03 02 01 15 30 2C 55 04 01 11 00 12 A0 24 B0 22 6B 11 30 0F 80 04 30 30 37 35 A1 07 30 05 80 03 31 31 31 63 07 30 05 80 03 31 31 31 4E 01 01 0A 01 16 | perl -0777 -MData::Dumper -MNet::CSTA::ASN=CSTAapdu -lne 'print Dumper($CSTAapdu->decode(pack"H*",s#\s+##gsr))' 
$VAR1 = {
          'svcRequest' => {
                            'serviceArgs' => undef,
                            'serviceID' => 21,
                            'invokeID' => 3
                          }
        };
#

попытайтесь найти нормальную asn.1 грамматику для csta

нашёл, 274 файла... все части CSTA. около 700 килобайт.
Видимо надо использовать только Convert::ASN1 и подсовывать туда эти файлы?


Это сообщение отредактировал(а) Cyr - 8.4.2014, 14:34

Посмотрите как сделано в Net::CSTA::ASN, там неполохой пример.

arto, в принципе в Net::CSTA::ASN практически тоже самое что и в полном CSTA. Почему же оно полностью не парсится?
Как определить, где конкретно (в каком месте) затык?

Это сообщение отредактировал(а) Cyr - 12.4.2014, 15:06

в модуле написано, что "this module currently implements CSTA phase I - mostly because my PBX (MD110 with 
Application Link 4.0) only supports phase I. Supporting multiple versions will 
require some thought since the versions are largly incompatible."

у вас какая версия csta?

arto, csta phase 3. но я смотрел определения(грамматику) и не смог найти отличия конкретно для моего примера.

Это сообщение отредактировал(а) Cyr - 14.4.2014, 08:57

попробуйте вручную распарсить ваш pdu

arto, парсится он нормально.
но видимо заставить делать это на perl для меня - не судьба.
Хочу пойти другим путём.
Как можно в цикле вывести ASN.1 теги и их значения?
Буду обрабатывать их через if ... else

Это сообщение отредактировал(а) Cyr - 15.4.2014, 11:16

вам распарсить грамматику?

arto, нет.
Мне просто в цикле надо пройти pdu и получить:
CONTEXT=1
INTEGER = 3
INTEGER = 21
SEQUENCE 
...
И т.д. 
А я уже через if ... else буду выводить, что это за информация и её значение.