Язык программирования Perl
Язык программирования Perl читать книгу онлайн
Курс знакомит с языком программирования Perl, с его принципами, основными возможностями и особенностями в объёме, достаточном, чтобы начать разрабатывать прикладные и системные задачи, включая программирование для сети Интернет.
Курс является достаточно подробным введением в язык программирования Perl. Описывается уникальная культура Perl и особенности, отличающие его от других языков программирования и во многом обусловившие его популярность. Рассматриваются основные средства программирования на языке Perl версии 5.8. Разбираются богатые возможности языка для создания самых разных приложений, а также особый стиль программирования на Perl. Курс ориентирован на студентов, начинающих программистов или разработчиков, применяющих другие языки и желающих писать прикладные или системные программы на Perl.
Внимание! Книга может содержать контент только для совершеннолетних. Для несовершеннолетних чтение данного контента СТРОГО ЗАПРЕЩЕНО! Если в книге присутствует наличие пропаганды ЛГБТ и другого, запрещенного контента - просьба написать на почту [email protected] для удаления материала
$input = <>; # чтение строки в $input из STDIN$line = <FILE>; # чтение строки в $line из потока FILE$in = <$handle>; # чтение строки в $in из потока $handleОперация чтения "кристалл" в скалярном контексте возвращает одну строку вместе с разделителем записей, а когда достигается конец файла, она возвращает неопределенное значение undef, которое воспринимается как ложное. Поэтому типичный цикл построчного чтения данных проверяет прочитанное значение и заканчивается, когда оно становится неопределенным:
open my $fh, "< $file" or die "Ошибка открытия: $!";while (my $line = <$fh>) { # чтение строки в переменную $linechomp $line; # удаление разделителя строкprint length $line, " $linen"; # обработка строки}close $fh or die "Ошибка закрытия: $!";Операция чтения "кристалл" в списочном контексте возвращает список всех строк с разделителями записей. Так, например, можно считать файл в массив, попутно отсортировав его:
@lines= sort(<$fh>); # в @lines отсортированные строки из $fhПострочный вывод данных выполняет функция print(), которая по умолчанию выводит список значений в текущий поток вывода, по умолчанию - в STDOUT. Если требуется направить информацию в другой поток, то перед списком выводимых данных указывается файловый дескриптор. Обратите внимание, что между файловым дескриптором и списком выводимых значений запятая не ставится. Вот примеры вывода данных:
print($list, $of, $output, $values); # вывод в STDOUTprint STDOUT $list, $of, $output, $values; # вывод в STDOUTprint(STDERR $list, $of, $output, $values); # вывод в STDERRprint FILE $list, $of, $output, $values; # вывод в FILEprint($file $list, $of, $output, $values); # вывод в $fileДля форматирования выводимой информации применяется функция printf(), которая преобразует выходные данные при помощи форматов преобразования, подробно объясненных в лекции 7 при описании функции sprintf(). Например, так можно вывести отформатированное текущее время в разные выходные потоки:
my ($hh, $mm, $ss) = (localtime)[2, 1, 0];# выбрать из списка нужные значения: часы, минуты, секундыmy $format = "%02d:%02d:%02dn"; # формат выводаprintf $format, $hh, $mm, $ss; # вывод в STDOUTprintf(STDERR $format, $hh, $mm, $ss); # вывод в STDERRprintf $file $format, $hh, $mm, $ss; # вывод в $fileЗадавая различные форматы преобразования, можно выводить данные в требуемом представлении или в виде колонок указанной ширины. Более тонкое управление выводимыми данными организуется средствами форматирования отчетов, которые будут изучены в следующей лекции.
В файле с исходным текстом программы на Perl может располагаться встроенный файл с данными, которые помещаются в конце программного файла после специальной лексемы __END__ (в основной программе) или __DATA__ (в программном модуле). При выполнении программы данные из этого встроенного файла доступны для чтения при помощи специального файлового манипулятора DATA. Во встроенном файле удобно хранить тестовые данные для проверки работы программы после ее модификации. Вот пример чтения данных из встроенного файла:
while (my $line = <DATA>) { # читаем построчно данныеprint $line; # обрабатываем данные}__END__Это данные из встроенного файлаДвоичные данные обычно хранятся в файлах без разделителей записей в блоках фиксированной длины. После открытия двоичного файла функцией open() нужно установить режим обработки двоичных данных с помощью функции binmode().
open(my $fh, ">$file") or die("Ошибка открытия: $!");binmode($fh);Запись двоичных данных или данных фиксированной длины может выполняться с помощью функции print($fh $record). Также имеется функция небуферизованного вывода syswrite(), которой при вызове указываются три аргумента: файловый манипулятор, скалярная переменная с выводимыми данными и размер записываемого блока данных. Эта функция возвращает число фактически записанных байт (в случае ошибки syswrite возвращает undef), что можно использовать для проверки успешности записи. Это делается так:
syswrite($fh, $record, length($record)) == length($record)or die("Ошибка записи: $!");Преобразование данных к двоичному виду производит функция pack(), которая упаковывает в скалярную переменную список значений в соответствии с указанным шаблоном. В шаблоне каждое преобразуемое поле обозначается с помощью латинской буквы. Полный перечень шаблонов преобразования для функций pack() и unpack() приводится в таблице 9.2. За каждым символом в шаблоне может следовать десятичное число, которое рассматривается как ширина преобразуемого поля. Поля в шаблоне могут разделяться пробелами для удобства чтения.
Таблица 9.2. Шаблоны упаковки и распаковки данных
| Шаблон | Мнемоника | Описание преобразования |
|---|---|---|
| a | Arbitrary | произвольная последовательность байтов, дополненная нулевым байтом |
| A | ASCII | строка символов ASCII, дополненная пробелами |
| b / B | Bit string | строка битов с возрастающим / убывающим порядком битов |
| c / C | Character | однобайтовые символы со знаком / без знака |
| f / d | Float / Double | число с плавающей точкой одинарной / двойной точности |
| F | Float | число с плавающей точкой одинарной точности во внутреннем представлении (NV) |
| D | long Double | длинное число с плавающей точкой двойной точности |
| h / H | Hex string | шестнадцатеричная строка с младшим / старшим полубайтом (nybble) в начале |
| i / I | Integer | целое (>=32 бита) число со знаком / без знака |
| j / J | целое во внутреннем представлении со знаком (IV) / без знака (UV) | |
| l / L | Long | длинное (32 бита) целое со знаком / без знака |
| n / N | Network | беззнаковое короткое (16 битов) / длинное (32 бита) целое с сетевым порядком байтов (big endian) |
| p / P | Pointer | указатель на строку, оканчивающуюся / фиксированной длины |
| q / Q | Quad | сверхдлинное (64 бита) целое число со знаком / без знака |
| s / S | Short | короткое (16 битов) целое со знаком / без знака |
| u | uuencoded | строка, кодированная по алгоритму uuencode |
| U | Unicode | строка символов Unicode |
| v / V | VAX | беззнаковое короткое (16 битов) / длинное (32 бита) целое с VAX-порядком байтов (little endian) |
| w | целое, сжатое в соответствии с кодировкой BER | |
| x | вставка (pack) / пропуск байта по направлению вперед (unpack) | |
| X | пропуск байта по направлению назад | |
| Z | ASCIIZ | строка ASCIIZ (оканчивающаяся ), дополненная |
| @ | заполнение до указанной позиции |
