Здравствуйте! 
Моему скрипту (модуль для фрирадиуса) передается некторое значение, которое должно по идее выглядеть так:



Мне необходимо получить отдельно три последних значения.

Исходными данные по идее должны быть:
00 04 03E8 01 04

Скрипту значение передается, однако вот тут я не совсем могу понять. Судя по всему перл как-то сразу переделывает его в строку, потому что если вывести его на экран получается "\000\004\003\350\001\004" , причем это и есть строка судя по тому, что у нее length возвращает 24, и ее спокойно можно разбить сплитом по "\". 

Отсюда вопрос - исходные данные уже "испорчены", и их нужно парсить вручную как строку, или это перл воспринимая содержимое октетов как строку, занимается подменой нелегальных символов на их восьмеричное представление? Спасибо!

$ echo -ne "\05" | perl -ne "warn '[', $_, '] ', length, ' ', ord, ' ', unpack('C')"
[] 1 5 5 at -e line 1, <> line 1.

Если приходит набор байтов, он и остаётся набором байтов, perl ничего с ней сам не делает.

Спасибо за ответ, действительно мне приходит уже готовая строка вида '\000\004\003\350\001'...
Причем в случае совпадения октета с реальным кодом символа, печатается сам символ, что в принципе мне и надо, поэтому я недолго думая сделал так:

И все было хорошо, пока мне не попалась вот такая штука:
"\000\004\003\350\001\n"
которая снова испортила мне всю малину... Понятно, что \n = 10, сделал "второй проход" на замену служебных символов, но что-то мне всеравно неспокойно, вдруг есть какой-нибудь \+100500 одному перлу известный, или еще какой нюанс вылезет.

Нельзя ли как-нибудь стандартными методами преобразовать все "развернутые" \xxx и служебные символы (вроде \n) в строке в их родное значение? Спасибо! 

Оттолкнуться можно от того, что escape последовательности интерполируются в двойных кавычках. С помощью eval есть возможность получить нужное значение, но это как известно не очень хорошо с точки зрения безопасности. С другой стороны простой регуляркой можно отфильтровать опасные данные.
Кажется такая конструкция должна работать:

perldoc -f pack
perldoc -f unpack

Спасибо, подобный подход сработал на ура!




Я про них думал, но, к сожалению, не смог найти способ преобразовать escape последовательность в ее код анпаком. Буду благодарен, если вы приведете подобный пример!

... и ник у вас подходящий.

CCSCC

Аа, вы об этом. Спасибо, но ваше решение совершенно не от моих вопросов. Ну, тоесть, я так и делаю, но уже после всех действий о которых шла речь в этой теме. Боюсь вы просто не вчитались в суть первого поста и последующего уточнения.

А ник да, мне подходит 

как знаете.