Обработка бинарных данных

Хотя Perl ориентирован в первую очередь на обработку текста,он также может обрабатывать бинарные данные. Скрипты могут перемещать бинарные данные частями, используя строковые переменные, ивыполнять байтовые операции ввода/вывода, используя функцииsysread и syswrite. Однако для того, чтобы выполнить что-нибудь<полезное> с данными, скрипт вынужден конвертировать данные всвои <родные> скалярные форматы.

Хранение бинарных данных

Когда скрипт на языке Perl читает блок бинарных данных, используя функцию sysread, он помещает эти бинарные данные в скалярную строковую переменную. Perl не заботится о том, что это заданные, содержат ли они нули или значения, не являющиесяASCII-символами. В пределах символьной строки Perl принимает байты как байты. В отличие от языка С, Perl не использует строк,оканчивающихся нуль-символом. Если данные соответствуют кодовойтаблице ASCII, то скрипт может их обрабатывать, как любой текст.Но если данные представляют собой бинарные величины, то скриптобязан распаковать их перед тем, как Perl сможет обработать этиданные.

Распаковка строк бинарных данных в переменные языка perl

Для того чтобы скрипт получил доступ к бинарным данным, ондолжен распаковать их, перейдя в свой скалярный формат. СкриптыPerl распаковывают данные, используя функцию unpack, котораяимеет следующий формат:

$result = unpack(Template, Expression);

Expression является обычной строковой переменной, котораясодержит бинарные данные, прочитанные функцией sysread, но можетбыть также выражением, которое необходимо интерпретировать какстроку. Template представляет собой символьную строку-шаблон,описывающую, как интерпретировать значения в операнде Expression.Следующий фрагмент программы иллюстрирует использование функцииunpack:

($r, $g, $b) = unpack("C3", $color);# распакует в 3 символа

@longwords = unpack("L*", $data); # распакует в список длинных # слов

@stuff = unpack("S2L", $bin); # распакует в 2 shorts и long

Каждый символ шаблона может сопровождаться числом, указывающим, сколько раз использовать этот символ. Если вместо числастоит звездочка (*), то операция будет выполняться для всех остающихся данных в строке. Если число не поставлено, то она выполняется однократно. Скрипт может поместить любое число символовшаблона в строку Template. В таблице 12.4 перечисляются символы,входящие в строковый параметр Template вместе с описанием влияния каждого из них на выполнение функции unpack.

Табл. 12.4. Символы шаблона

Символ шаблона	Описание
a	Строка ASCII без нулевого символа
А	Строка ASCII без нулевого символа
b	Битовая строка (младший бит идет первым)
В	Битовая строка (старший бит идет первым)
с	Однобайтовый символ со знаком
С	Однобайтовый символ без знака
d	Значение с плавающей запятой, двойной точности
f	Значение с плавающей запятой, одинарной точности шаблона
h	Строка шестнадцатиричных значений (младшие разряды идут первыми)
Н	Строка шестнадцатиричных значений (старшие разряды идут первыми)
i	Целое со знаком
I	Целое без знака
l	Целое со знаком типа long
L	То же, только без знака
n	Короткое целое
N	Длинное целое
p	Указатель на строку
s	Короткое целое со знаком
S	Короткое целое без знака
u	Раскодировка строки
v	Короткое целое
V	Длинное целое
x	Пропустить вперед один байт
X	Пропустить назад один байт
@	Перейти на указанную позицию в строке