Язык программирования Perl
Язык программирования Perl читать книгу онлайн
Курс знакомит с языком программирования Perl, с его принципами, основными возможностями и особенностями в объёме, достаточном, чтобы начать разрабатывать прикладные и системные задачи, включая программирование для сети Интернет.
Курс является достаточно подробным введением в язык программирования Perl. Описывается уникальная культура Perl и особенности, отличающие его от других языков программирования и во многом обусловившие его популярность. Рассматриваются основные средства программирования на языке Perl версии 5.8. Разбираются богатые возможности языка для создания самых разных приложений, а также особый стиль программирования на Perl. Курс ориентирован на студентов, начинающих программистов или разработчиков, применяющих другие языки и желающих писать прикладные или системные программы на Perl.
Внимание! Книга может содержать контент только для совершеннолетних. Для несовершеннолетних чтение данного контента СТРОГО ЗАПРЕЩЕНО! Если в книге присутствует наличие пропаганды ЛГБТ и другого, запрещенного контента - просьба написать на почту [email protected] для удаления материала
Например, целочисленное значение, возвращаемое функцией time(), и дробное значение, возвращаемое функцией rand(), можно упаковать в переменную $record с помощью шаблона 'l1 d1', который означает: "одно длинное целое число (long) и одно число с плавающей точкой двойной точности (double)".
$record = pack 'l1 d1', time(), rand(); #Вот еще несколько несложных примеров использования разных шаблонов для функции pack():
$bin = pack('a5', 'Yes'); # в $bin будет: 'Yes '$bin = pack('A5', 'Yes'); # в $bin будет: 'Yes '$bin = pack('a4', 'abcd','x','y','z'); # в $bin: 'abcd'$bin = pack('aaaa', 'abcd','x','y','z'); # в $bin: 'axyz'$bin = pack('C2', 65,66,67); # в $bin будет: 'AB'$bin = pack('U2', 0x263A, 0x263B); # в $bin будет: '??'$bin = pack ('cxxc', 65,66); # в $bin будет: 'A B'Для преобразования данных из двоичного вида применяется функция unpack(), которая распаковывает из скалярной переменной в список или массив значения двоичных данных в соответствии с указанным шаблоном.
@list_of_values = unpack($template, $binary_record);Кроме того, с помощью функции unpack() можно из строки извлекать подстроки фиксированной длины. Например, так можно извлечь из записи файла поля определенной длины в переменные:
# Поля данных в записи файла:# c 1 по 7 байт - номер телефона# с 8 длиной 30 - фамилия, имя, отчество абонента# с 38 длиной 25 - адрес# 1234567Бендер Остап Ибрагимович РСФСР, Черноморск($phone, $name, $address)= unpack('A7A30A25', $record);Чтобы пропустить ненужные поля, достаточно указать в шаблоне пропуск определенного количества байтов. Например, так можно не извлекать поле с телефонным номером:
($name, $address)= unpack('x7A30A25', $record);Подробное описание шаблонов и работы функций pack() и unpack() можно найти в стандартной документации с помощью все той же утилиты чтения документации:
perldoc perlpacktutДля чтения двоичных данных или текстовых данных фиксированной длины применяется функция read(), которой в качестве аргументов передаются файловый манипулятор, скалярная переменная для вводимых данных и размер считываемого блока данных. Вот так, например, выглядит типичный цикл чтения двоичных данных:
until(eof($fh)) { # читать до достижения конца файла# считать очередной блок данных и проверить его длинуread($fh, $record, $record_size) == $record_sizeor die('Неправильная длина данных');# распаковать данные по шаблону из $record в @data@data = unpack($template, $record);# обработать введенные данные...}При работе с данными фиксированной длины обычной практикой является считывание или запись данных в произвольном месте файла, например, при изменении только что считанного блока данных. Для этого нужно позиционировать позицию чтения или записи. Это делается с помощью функции seek(), которой передается три аргумента: файловый манипулятор, смещение в байтах и указатель позиции отсчета. Позиция отсчета задается числами: 0 - от начала файла, 1 - от текущей позиции, 2 - от конца файла. Например:
seek($handle, 64, 0); # переместиться на 64 байта от началаseek($handle, 25, 1); # сместиться на 25 байт впередseek($handle, -10, 2); # установиться на 10 байт до концаseek($handle, 0, 0); # установить позицию в начало файлаС помощью функции tell(), которая возвращает смещение относительно начала файла, можно узнать текущую позицию чтения-записи и использовать ее для дальнейших перемещений по файлу.
$pos = tell($handle); # запомнить текущую позицию в $posseek($handle, $pos-5, 1); # сместиться на 5 байт назадВ следующем примере увеличивается поле счетчика длиной 2 байта, расположенное в файле с позиции $new_pos:
seek($file, $new_pos, 0); # установить позицию чтения$pos = tell($file); # и запомнить ее в переменнойread($file, $number, 2); # прочитать 2-байтовое полеseek($file, $pos, 0); # установить в исходную позициюsyswrite($file, ++$number, 2); # записать новое значениеОперации ввода-вывода с произвольным доступом часто используются для работы с базами данных, основанных на записях фиксированной длины, например, с файлами в формате DBF. Они позволяют организовать быструю выборку данных и запись измененных данных на прежнее место.
Перед выполнением операций ввода-вывода часто требуется узнать информацию об объектах файловой системы. В Perl есть набор унарных операций для удобной проверки различных характеристик файлов и каталогов. Они имеют вид флагов из одной латинской буквы с предшествующим знаком минус, после которого указывается имя проверяемого файла. Полный перечень операций проверки файлов приведен в таблице 9.3.
Таблица 9.3. Операции проверки файлов
| Операции | Описание проверок |
|---|---|
| -r -w -x | Файл доступен для чтения / записи / исполнения (по effective UID+GID) |
| -R -W -X | Файл доступен для чтения / записи / исполнения (по real UID+GID) |
| -o -O | Файл принадлежит текущему пользователю по effective / real UID |
| -e -z | Файл существует (exists) / имеет нулевую длину (zero) |
| -s | Файл имеет ненулевой размер: возвращает размер в байтах (size) |
| -f -d | Файл является обычным файлом (file) / каталогом (directory) |
| -l -S -p | Файл является ссылкой / сокетом / именованным FIFO-каналом (pipe) |
| -b -c | Файл является блочным / символьным специальным файлом |
| -u -g -k | Для файла установлен бит setuid / setgid / sticky |
| -t | Файловый манипулятор связан с терминалом (tty) |
| -T -B | Файл является текстовым (text) / двоичным (binary) |
| -M -A -C | Время изменения (modification) / доступа (access) / изменения (change) индексного узла (inode) файла в днях относительно времени начала выполнения программы ($^T) |
