упакованном виде. Для распаковки применяйте: ($a, $b, $c, $d) = unpack('C4',$addr[0]); getsockname сокит Возвращает упакованный адресс сокита локальной машины. getsockopt сокит, уровень, опция Возвращает опцию сокита. glob выражение Возвращает список файлов удовлетворяющих выражению с '*' как в команде ls. gmtime выражение Переводит местное время полученное функцией time() во время по Гринвичу. Обычно используется в виде: ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=gmtime(time); goto метка goto выражение goto &подпрограмма Бузусловный переход на метку. Нельзя делать переход на метку в структуру которая должна быть инициирована например подпрограмму или цикл foreach и т.д. Вторая форма применяется для динамического определения перехода. Например: goto ('метка1', 'метка2', 'метка3')[$i]; Здесь при $i = 0 будет переход на 'метка1', $i = 1 на 'метка2' и т.д. Третья форма (goto &подпрограмма) довольно "хитрый" метод подмены имени вызываемой подпрограммы именем текущей. Это используется в методе автозагрузки когда нужно запустить другую процедуру но под именем текущей как-будто та была вызвана раньше. grep блок, список grep выражение, список Выполнят блок или выражение для каждого элемента списка. Переменная $_ содержит текущий элемент. Возвращает список элементов с которыми выражение дало результат true. В скалярном контексте возвращает количество результатов true. hex выражение Воспринимает выражение как строку шестнадцетиричных цифр и возвращает десятичное значение. import В Пел нет встроенной функции import, но есть метод с помощью которого модули могут экспортировать область имен другим модулям. Подробно смотрите функцию use(). index строка, подстрока, позиция index строка, подстрока Возвращает позицию первого вхождения подстроки в строке начиная с указанной позиции. Если позиция отсутсвует то сравнение начинается с начала строки. Отсчет позиции ведется с 0 если только не изменено значение встроеной переменной $[. Если подстрока не найдена то результат меньше первой позиции на 1. Обычно это -1. int выражение Возвращает целую часть выражения. ioctl FILEHANDLE, FUNCTION, SCALAR Выполняет системный вызов ioctl(). В начале программы необходимо указать: require "ioctl.ph"; join выражение, список Соединяет строки списка или массива в одну строку с кодом разделителя равному выражению. keys хеш Возвращает массив всех ключей хеша. В скалярном контексте - количество ключей. Порядок следования ключей аналогичен порядку в each фунуции. kill список Послать сигнал (первый элемент) указанным в списке процессам. Возвращает количество процессов которые сигнал приняли. last метка last Функция аналогичная break в С. Прерывает цикл и переходит на указанную метку. Если метки нет на ближайший внешний цикл. Блок continue не выполняется. lc выражение Преобразовать строку в буквы нижнего регистра. lcfirst выражение Заменить первую букву строки на малую. length выражение Возвращает длину строки выражения. link OLDFILE, NEWFILE Создать файл NEWFILE связанный с файлом OLDFILE. listen SOCKET, QUEUESIZE Выполнить системный listen(). local список Объявляет перечисленные переменные как локальные в текущем блоке или подпрограмме. Если указано два и более имени их необходимо заключить в круглые скобки. Предпочтительней использовать функцию my(). localtime выражение Преобразовать 9-элементный массив возвращаемый фугкцией time относительно местного времени. Употребляется как: ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); log выражение Возвращает натуральный логарифм выражения. lstat файл lstat выражение То же что и системный вызов stat() но касательно ссылки на файл а не самого файла. m// Оператор соавпадения. Смотри главу "Операторы" map блок, список map выражение, список Выполняет блок или выражение для каждого элемента списка. Возвращает список результатов. mkdir директория, права Создать директорию с указанными правами доступа. Возвращает 1 при успехе и 0 при неудаче. msgctl ID, CMD, ARG Системный вызов msgctl() System V msgget KEY, FLAGS Системный вызов msgget() System V msgsnd ID, MSG, FLAGS Системный вызов msgsnd() System V msgrcv ID, VAR, SIZE, TYPE, FLAGS Системный вызов msgrcv() System V my список Объявляет локальными переменные в списке. Если два или более имени их необходимо заключить в круглые скобки. next метка next Аналогичен continue в С. Переход к следующей итерации в цикле. Если в цикле присутсвует блок continue он так же выполняется. Если метка отсутсвует - переход на ближайший внутренний цикл. no Module список. Исключить использование указанных модулей. oct выражение Возвращает десятичное число представленное восьмеричными цифрами. open файл,выражение open файл Открыть файл с указанным именем. Аргумент "файл" - это фактически указатель на блок описания файла. Если имя (выражение) файла отсутсвует то имя считается таким же как и указатель файла. Если перед именем стоит символ '<' то файл открывается только на чтение (значение по умолчанию). Если '>' - на запись. Если '>>' - на добавление записей. '+>' или '+<' - файл открыт на чтение и запись одновременно. Если имя файла начинается с символа '|' то имя считается системной командой на вход которой выводятся данные (поток). Имя '-' - стандартный вход (STDIN), '>-' - стандартный вывод (STDOUT). Функция возвращает true при успехе и false - неудаче. Если имя (выражение) начинается с символов ">&" то остаток имени считается именем указателя файла который окрывается повторно. Символ '&' может стоять после '<', '>>', '+>', '+>>' и '+<'. Режим повторного открытия должен соответсвовать первому. Выражение вида "<&=N" где N -число, эквивалентно системному вызову fdopen(). Если имя "|-" или "-|" то происходит "расщепление" (fork) процесса на потомка и родителя. При этом возвращается номер процесса потомка (PID) внутри родительского процесса и 0 - внутри потомка. При этом запись/чтение в файл родительским процессом воспринимается как чтение/запись потомком. Для потомка это стандартный ввод/вывод. Родительский процесс ждет завершения потомка после закрытия потока и получает код завершения в переменной $?. Имя файла не должно содержать пробелов как в начале так и в конце. opendir указатель, выражение Открыть директорию с именем выражения для обработки функциями readdir(), telldir(), seekdir(), rewinddir() и closedir(). Возвращает true при успехе. ord выражение Возвращает ascii код первого символа выражения. pack шаблон, список Упаковывает список в двоичную структуру по шаблону. Шаблон - это строка символов описывающая порядок и тип упакованных значений. A - текстовая строка, добавляется пробелами. a - текстовая строка, добавляется 0 символом. b - битовая строка (возрастающая нумерация бит) B - битовая строка (убывающая нумерация бит) h - шестнадцатеричная строка ( младший байт - первый) H - шестнадцатеричная строка (старший байт первый) c - символ со знаком C - символ без знака. s - короткое целое (один байт) со знаком. S - короткое целое без знака. i - целое (два байта) со знаком. I - целое без знака. l - длинное целое (4 байта) со знаком. L - длинное целое без знака. n - короткое в "сетевом" формате. N - длинное в "сетевом" формате. v - короткое в "VAX" формате. V - длинное в "VAX" формате. f - single float. F - double float. p - указатель на строку ограниченную 0. P - указатель на структуру с фиксированной длиной. u - упаковка uuencode. x - нуль-байт X - резервный байт. @ - заполнить нулями позицию. За каждой буквой может стоять число означающее количество повторов. Для всех типов за исключением 'a', 'A', 'b', 'B', 'h' и 'H', упаковывается максимально возможное количество значений из списка. Символ '*' после типа означает использовать оставшиеся параметры. Тип 'a' и 'A' использует только одно значение из списка и добавляет остаток поля либо нуль-символами либо пробелами (при распаковке по типу 'A' пробелы и нули отбрасываются, а по 'a' - нет). Типы 'b' и 'B' упаковывают строку в указанное число бит. Так же как и 'h' и 'H' в число ниблов (байт). 'P' - упаковывает указатель на структуру с указанной длиной. Числа с плавающей запятой (floats и double) записываются в стандартном для каждой машины формате и могут быть разными для разных типов машин. Заметьте, что Пел всегда использует двойную точность (double) поэтому упаковка и распаковка по типу 'f' приведет к потере точности. Шаблоны для распаковки и упаковки совершенно одинаковы. Примеры: print(pack("ccc",65,66,67)); # Результат ABC print(pack("A4A3","ab","cdefg")); # "ab cde" print(pack("a4a3","ab","cdefg")); # "ab\0\0cde" pipe READHANDLE, WRITEHANDLE Аналогичен системному pipe(). pop массив Удаляет и возвращает последний элемент массива. Длина массива уменьшается на 1. Результат не определен если массив пустой. Если имя массива отсутсвует то извлекает из @ARGV для головной программы и @_ для полпрограммы. pos скаляр Возвращает смещение от последнего m//g поиска. print файл список print список print Выводит строку или список строк в файл. Возвращает true при успехе. Аргумент файл может быть скалярной переменной содержащей имя указателя файла если он отсутсвует то осуществляется вывод в стандартный выходной поток STDOUT (если не было вызова select()). Если список отсутсвует то выводится значение переменной $_. Для вывода по умолчанию в другой файл необходимо использовать функцию select(). Так как print работает в списковом контексте, то все элементы списка так же вычисляются в списковом контексте т.е. функции будут возвращать списковые значения. Аргументы можно заключать в круглые скобки. Если указатель файла - элемент массива то элемент нужно заключить в фигурные скобки для вычисления блока. printf файл список printf список Аналогичен вызову "print файл sprintf(список)". Первый элемент списка должен быть форматом printf() как и в С. push массив, список Добавить элементы массива значениями из списка. Длина массива увеличивается на количество элементов списка. q/строка/ qq/строка/ qx/строка/ qw/строка/ Обычные операторы строк. Смотри главу Операторы. quotemeta выражение Вычисляет выражение в котором метасимволы рассматриваются как обычные символы. rand выражение rand Возвращает случайное число в диаппазоне между 0 и выражением. Если выражение отсутсвует - между 0 и 1. Данная псевдослучайная последовательность сбрасывается функцией srand(). read файл, скаляр, длина, смещение read файл, скаляр, длина Прочитать указанное число байт из файла в скалярную переменную. Возвращает количество прочитаных байт или неопределенность при ошибке. Длина скаляра станет равной количеству считанных байт. Смещение указывают если данные нужно поместить не с самого начала строки. readdir директория Возвращает имя следующего файла в директории открытой командой opendir(). В скалярном контексте возвращает все оставшиеся имена файлов. Если файлов больше нет то возвращает неопределенность в скалярном контексте и пустую строку в списковом. readlink выражение Возвращает значение символической ссылки. При ошибке возвращает неопределенное значение. recv SOCKIT, SCALAR, LEN, FLAGS Получить сообщение из сокита. Аналогичен системному recvfrom(). redo метка redo Перейти к началу блока минуя вычисление условия и блока continue. Если метка отсутсвует то переход к ближайшему внешнему блоку. ref выражение Возвращает true если выражение это ссылка иначе - false. Возвращаемое значение зависит от типа ссылки. Существуют следующие типы ссылок: REF, SCALAR, ARRAY, HASH, CODE, GLOB Если аргумент - ссылка на класс то возвращается имя класса. Функция ref() аналогична функции typeof(). rename старое_имя, новое_имя_файла Переименовать файл. Возвращает 1 в случае успеха иначе 0. require выражение require Если выражение - число, требует что бы текущая версия Пел была не ниже указанной. Если строка - считывает библиотечный файл с указанным именем если он еще не прочитан. Последний оператор библиотечного файла должен возвращать true. Обычно это строка вида 1; Если расширение имени файла отсутсвует то по умолчанию принимается ".pm" В данной функции можно указывать путь расположения файла, а если библиотека расположена в стандартной системной области Пел то вместо require предпочтительней использовать use(). reset выражение reset Обычно используется в блоках continue циклов для очистки переменных и поиска для повторного применения. Выражение воспринимается как список символов. Для указания диаппазона можно применять символ минус '-'. Все переменные и массива начинающиеся с этих символов обнуляются. Если выражение отсутсвует то обнуляестя поиск ?шаблон? для повторного поиска. Сбрасываются только переменные текущего модуля. Пример: reset 'a'; # очистить все переменные начинающиеся # буквой 'a' reset 'a-z' # все переменные с малых букв. Выражение вида: 'A-Z' употреблять не рекомендуестя т.к. обнуляются важные массивы @ARGV и @ENV. return список Выход из подпрограммы с указанным кодом. Если данная функция отсутсвует то выход из подпрограммы осуществляется с кодом последнего выполненного оператора. reverse список В списковом контексте возвращает список с элементами в обратном порядке указанному списку. В скалярном контексте возвращает строку спереставленными символами первого элемента списка. rewindir директрия Устанавливает указатель файлов открытой директории в начало для последующего чтения функцией readdir(). rindex строка, подстрока, позиция rindex строка, подстрока Подобна функции index , но возвращает позицию последнего вхождения подстроки в строку. Если указана позиция, то просмотр выполняется до нее. rmdir директория Удалить указанную директорию если в ней нет никаких файлов. Возвращает 1 при успехе и 0 при не удаче. При этом переменная $! содержит код (errno). s/// Оператор подстановки. Смотри главу "Операторы". scalar выражение Вычисляет выражение в скалярном контексте и возвращает результат. В Пел нет специальной функции для принудительного вычисления в списковом контексте т.к. для достаточно заключить его в круглые скобки. seek файл, позиция, отсчет Установить указатель на произвольную позицию в файле. Если отсчет равен 0 - позиционировать от начала файла, если 1 - от текущего положения, 2 - от конца файла. Возвращает 1 при успехе и 0 - неудаче. seekdir директория, позиция Установить указатель файла в открытой директории для последующего чтения функцией readdir(). Текущая позиция может быть получена функцией telldir(). select файл select Возвращает текущий указатель файла- по умолчанию или делает текущим указанный. Таким образом если в функциях print или write не указан файл вывода то это осуществляется в файл указанный select. Переменные связанные с выводом так же действуют на вывод в этот файл. select RBITS, WBITS, EBITS, TIMEOUT Выполняет системный select() semctl ID, SEMNUM, CMD, ARG Системный вызов semctl() для SYSTEM V. semget KEY, NSEMS, FLAGS Системный вызов semget() для SYSTEM V. semop KEY, OPSTRING Системный вызов semop() для SYSTEM V. send SOCKET, MSG, FLAGS, TO send SOCKET, MSG, FLAGS Послать сообщение через сокит. Аналогично системному send(). setpgrp PID, PGRP Установить номер группы PGRP процессу с номером PID 0 = для текущего процесса. setpriority WHICH, WHO, PRIORITY Установить приоритет PRIORITY процессу пользователя WHO и группе WHICH. setsockopt SOCKET, LEVEL, OPTNAME, OPTVAL Установить параметры сокита. Воззвращает неопределенность при ошибке. shift массив shift Удаляет первый элемент массива и возвращает его значение. Если массив пустой то результат неопределенность. Если аргумент опущен - обрабатывается массив @ARGV в головной программе или @_ в подпрограмме. shmctl ID, CMD, ARG Системный вызов shmctl() System V shmget KEY, SIZE, FLAGS Системный вызов shmget() System V shmread ID, VAR, POS, SIZE shmread ID, STRING, POS, SIZE Пишет или читает сегмент общедоступной памяти в System V. shutdown SOCKET, HOW Прекращает работу сокита методом HOW. sin выражение Возвращает в радианах синус выражения. sleep выражение sleep Приостанавливает работу процесса на указанное число секунд или зацикливается если аргумент отсутсвует. Работа продолжается если получен сигнал SIGALARM. Возвращает время фактической паузы. socket SOCKET, DOMAIN, TYPE, PROTOCOL Открывает сокит и привязывает его к указателю SOCKET. socketpair SOCKET1, SOCKET2, DOMAIN, TYPE, PROTOCOL Создает "безымянную" пару сокитов в указаном DOMAIN. Возвращает true при успехе и false - неудаче. sort подпрограмма список sort блок список sort список Сортирует элементы списка и возвращает полученный список. Не существующие элементы списка отбрасываются. Если не указано имя подпрограммы или блок то сортирует в стандартном строковом порядке. Указанная подпрограмма возвращает значения больше, меньше или равное нулю в зависимости от двух соседних элементов списка. Имя подпрограммы может быть указано переменной. Она не должна быть рекурсивной и два сравниваемых элемента списка передаются как глобальные переменные $main::a и $main::b. Это ссылки поэтому их изменение приводит к изменению самих элементов списка. splice массив, смещение, длина, список splice массив, смещение, длина splice массив, смещение Удаляет элементы массива начиная со смещения и указанной длины. Заменяет их указанным списком. Возвращает удаленный список. Если длина не указана удаляет все элементы списка начиная со смещения. split /шаблон/, выражение, предел split /шаблон/, выражение split /шаблон/ split Разделяет строку,указанную выражением, на массив элементов и возвращает его. В скалярном контексте возвращает количество полученных элементов массива, а сам массив помещает в @_ (в списковом контексте поместить результат в @_ можно если применить ?шаблон?) Если выражение отсутсвует то обрабатывается содержимое переменной $_. Если шаблон отсутсвует то разделителем является пробел. Все что подходит по шаблону считается разделителем. Если указан предел то это максимальное число разделений. Отрицательное значение предела воспринимается как неограниченно большой предел. Если пустая строка походит под шаблон разделителя то исходное значение разделяется по символьно. Предел удобно использовать для частичного разделения строки. Пример: ($a, $b, $остаток) = split(/ /, "Один Два Три Четыре",3); здесь $a = 'Один', $b = 'Два' и $остаток = 'Три Четыре' Если шаблон содержит круглые скобки то символы-разделители указанные в них вставляются в результирующий список как обычные элементы, причем вставляется символ который совпал с разделителем. Пример: @a = split(/([,.])/, "Один,Два.Три"); здесь @a = ("Один", "," ,"Два", ".", "Три") sprintf формат, список Форматирует список по указанному формату аналогично функции sprintf() языка С. sqrt выражение Возвращает корень квадратный выражения. srand выражение Задает начальное значение для генератора случайных чисел оператора rand. Если аргумент отсутсвует то используется текущее машинное время. stat файл stat выражение Возвращает 13 элементный массив параметров указанного файла или пустой список при ошибке. Применяется обычно следующим образом: ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, $blksize,$blocks) = stat($filename); где $dev - имя устройства $ino - номер i-узла $mode - права доступа $nlink - количество связей $uid - идентификатор владельца $gid - идентификатор группы $rdev - тип устройства $size - размер файла в байтах $atime - дата последнего обращения $mtime - дата последней модификации $ctime - дата последнего изменения статуса $blksize - размер блока на диске $blocks - количество блоков в файле. Если указан аргумент '_' то возвращается результата предыдущего вызова stat(). study скаляр study Влючение метода частотного сравнения. Целесообразность применения зависит от количества поисков и количества констант в строке в которой ведется поиск. Функция работает следующим образом: Для указанного скаляра (если аргумент отсутсвует берется значение переменной $_) строится список указателей на каждый символ строки. Затем когда начинается поиск первыми просматриваются символы которые наиболее редко встречаются в английском языке. Выигрыш по времени очевиден когда выполняется многократный поиск в одной и той же строке и время затраченной на индексацию окупается. substr выражение, смещение, длина substr выражение, смещение Возвращает подстроку выражения начиная со смещения и заданной длины. Если смещение отрицательное то отсчет ведется от конца строки. Если длина не указана то берется все до конца строки. symlink старый_файл, новый_файл Создает новый файл символически связанный со старым т.е. создает ссылку на файл. Возвращает 1 при успехе и 0 - неудаче. syscall список Выполняет системную функцию. Первый элемент списка - это имя функции а остальные элементы - ее аргументы. Если функция не выполнима то возвращается фатальная ошибка. Аргументы интерпретируются следующим образом. Если аргумент число, то оно считаестя целым. Если не число то аргумент считается указателем на строку. Вам необходимо обеспечить достаточную длину аргумента для подстановки значения указателя. В Пел передается максимум 14 параметров. Обычно этого достаточно. sysread файл, скаляр, длина, смещение sysread файл, скаляр, длина Прочитать из файла указанное число байт в скаляр с помощью системного вызова read(). Смещение обозначает позицию в скаляре после которой будут вставлены прочитанные байты. system список Делает то же самое что и "exec список" с той лишь разницей что вызов fork() делается первым и родительский процесс ждет завершения потомка. Возвращает значение аналогичное функции wait(). Для получения действительного кода завершения необходимо разделить на 256. syswrite файл, скаляр, длина, смещение syswrite файл, скаляр, длина Записать в файл укзанное число байт скаляра с помощью системного вызова write(). Смещение указывает позицию в скаляре откуда начинается запись. tell файл tell Возвращает текущую позицию указателя в открытом файле. Если файл не указан то последнего читаемого файла. telldir директория Возвращает текущую позицию указателя в открытой директории. Обычно это параметр для позиционирования указателя директории функцией seekdir(). tie переменная, класс, список Присваивает переменную классу. Список - это аргументы new метода класса (TIESCALAR, TIEARRAY или TIEHASH). Возвращает указатель на созданный новый объект класса который удобен для вызова других методов класса. Внимание! Такие функции как keys() и values() могут вернуть в качесте значения огромное количество данных. Для создания объекта ассоциативного типа необходимо определение следующих методов: TIEHASH classname, LIST DESTROY this FETCH this, key STORE this, key, value DELETE this, key EXISTS this, key FIRSTKEY this NEXTKEY this, lastkey Обычного массива: TIEHASH classname, LIST DESTROY this FETCH this, key STORE this, key, value [others TBD] Скалярного типа: TIEHASH classname, LIST DESTROY this FETCH this, key STORE this, key, value time Возвращает количиство секунд начиная с 1 января 1970 г 00:00:00 UTC. Годы не разделяются на високосные. times Возвращает 4-х элементный массив значений: ($user, $system, $cuser, $csystem) = times; где: $user - пользовательское время процесса в секундах. $system - системное время текущего процесса. $cuser - время процесса-потомка текущего прцесса. $csystem - его системное время. tr/// Опрератор транслятор. Подробно смотри главу "Операторы". truncate файл, длина truncate выражение, длина Усекает длину указанного файла. uc выращение Возвращает строку выражения в которой малые буквы заменены на заглавные. ucfirst выражение Возвращает строку выражения в которой первая буква заменена на заглавную. umask выражение umask Устанавливает маску umask и возвращает старое значение. Без аргумента возвращает текущее значение. undef выражение undef Делает неопределенным значение выражения. Применяется только для скалярных переменных, целых массивов или подпрограмм. Всегда возвращает неопределенное значение. unlink список Удаляет файлы указанные в списке. Возвращает количество удаленных файлов. Только супервизор может удалять директории с файлами если Пел запущен с ключом -U. unpack шаблон, выражение Функция обратная pack(). Распаковывает строку выражения по указанному шаблону в массив значений. В скалярном контексте возвращает значение только первого элемента. Шаблоны такие же как и в pack(). Символ '%' в шаблоне означает что вы хотите получить вместо значения его контрольную сумму. По умолчанию 16 битовую. untie переменная Исключает переменную из класса указанного tie(). unshift массив, список Противоположное shift. Помещает элементы списка в начало массива. use модуль список use модуль Указывает библиотечный модуль из которого можно вызывать подпрограммы. Список перечисляет имена подпрограмм которые добавляются к текущей область имен. Если не указан то все имена. Действие аналогично блоку: BEGIN { require модуль; import модуль список; } Сам модуль должен распологаться в системной области Пел файлов. utime список Изменяет дату обращения и модификации файлов из списка. Первые два элемента списка должны указывать новое значение даты обращения и модификации. Возвращает количество измененных файлов. values хеш Возвращает обычный массив со всеми значениями хеша. В скалярном контексте возвращает количество значений хеша. vec выражение, смещение, бит Возвращает значени строки как вектор без знаковых целых. wait Ожидать окончание порожденного процесса. Возвращает PID для родительского процесса или -1 если нет процесса потомка. Код завершения записывается в переменную $?. waitpid PID, FLAGS Ожидать окончания процесса потомка с указанным PID. Возвращает либо PID этого процесса либо -1 если нет такого процесса. Код завершения записывается в перменную $?. wantarray Возвращает true если подпрограмма вызывается в списковом контексте и false - в скалярном. warn список Выодит в стандартный поток ошибок STDERR сообщение аналогично die(), но не прекращает работу программы. write файл write выражение write Выводит в файл форматированные данные по оператору format. По умолчанию имя формата совпадает с именем указателя файла. Имя файла-по умолчанию можно изменить функцией select(), а имя формата при этом надо присвоить переменной $~. Заголовок листа пишется автоматически. Если на листе не хватает места для вывода то выводится "перевод формата" и специальная форма заголовка листа затем сами записи. По умолчанию имя формата заголовка листа состоит из имени указателя файла и добавленной строки "_TOP". Динамически это млжно делать присваивая формат переменной $^. Количество оставшихся строк листа содержится в переменной $- и если присвоить ей 0 то произойдет смена листа. Подробно описание форматов смотри в главе "Форматы". y/// Оператор транслятор. Смотри главу "Операторы".  * Подпрограммы *  Для применения подпрограммы ее необходимо определить либо в текщем модуле (файле) либо во внешнем модуле (файле). Подпрограммы определяются и декларируются следующим образом: sub имя; # Только декларация. Определение ниже. sub имя (прототипы); То же но с декларацией параметров. sub имя блок; # Декларация и определение. sub имя (прототипы) блок; # То же, но с парамметрами. Для определения динамичской анонимной подпрограммы можно указать: $переменная = sub блок; Для импортирования подпрограмм из других модулей используйте: use модуль qw(подпрограмма1 подпрограмма2 ); Вызов подпрограммы: имя(список параметров); # символ '&' можно не указывать. имя список; # Если подпрогрмма уже декларирована. &имя; # Параметры в @_ Все параметры передаются подпрограмме как массив @_. Соответсвенно $_[0] - первый параметр, $_[1] - второй и т.д. Массив @_ - локальный, но он содержит адреса параметров поэтому можно изменять значение параметров. Возвращаемое значение подпрограммы - результат последнего оператора. Это может быть как скаляр так и массив. Можно принудительно возвращать результат используя функцию return(). Подпрограмму можно вызвать используя префикс '&' перед именем подпрограммы. Если подпрограмма предварительно продекларирована то префикс и скобки можно опустить. Private переменные. Для применения переменных доступных только внутри блока или подпрограммы необходимо определить их с помощью функции my(список). Если переменная одна то скобки можно опустить. my() декларирует private переменные в пределах текущей подпрограммы, блока, функции eval() или do/require/use файлов. Private переменные аналогичны auto переменным в С. Пример: # Программа вычисления факториала. print fact(3); # вычислить факториал 3*2*1 sub fact # Определяем подпрограмму. { my $m; # private переменная но не local ! $m = $_[0]; return 1 if $m <= 1; return($m * fact($m -1)); } Можно указывать начальные значения private переменных как: my(список) = выражение; Так для вышеприведенного примера лучше было написать: my($m) = $_[0]; Переменные типа local. В общем лучше использовать private переменные так-как это надежней и быстрее. private переменные обеспечивают лексическую область применения (видимости) а local - динамическую. Обычно это переменные форматов значение которых должно быть видимо из вызываемых подпрограмм. Применение функции local() не целесообразно в циклах так как она вызывается каждый раз и таким образом заметно замедляет время выполнения цикла. Прототипы (prototypes). Для краткого описаня типа параметров передаваемых подпрограмме можно применять прототипы. В Пел существуют следующие прототипы: Декларация Пример вызова sub mylink($$) mylink $old, $new sub myvec($$$) myvec $var, $offset, 1 sub myindex($$;$) myindex &getstring, "substr" sub myreverse(@) myreverse $a, $b, $c sub myjoin($@) myjoin ":",$a,$b,$c sub mypop(\@) mypop @array sub mysplice(\@$$@) mysplice @array, @array, 0, @pushme sub mykeys(\%) mykeys %{$hashref} sub myopen(*;$) myopen HANDLE, $name sub mypipe(**) mypipe READHANDLE, WRITEHANDLE sub mygrep(&@) mygrep { /foo/ } $a, $b, $c sub myrand($) myrand 42 sub mytime() mytime Здесь: \'символ' - параметр с типом 'символ' '@' или '%' - все оставшиеся параметры как список '$' - скаляр '&' - безимянная подпрограмма '*' - ссылка на таблицу имен ';' - разграничитель обязательных и не обязательных параметтров. Ссылка как параметр. Иногда нужно в качестве параметра передать подпрограмме не значение элемента массива а ссылку на него, что бы подпрограмма могла изменить значение элемента. Для этого в Пел к имени переменной добавляется символ '*' Подбное выражение называют 'type glob' так как в Юниксе символом '*' обозначают "все возможные значения". Поэтому '*' для массива означает "все элементы массива". Для скаляров употряблять '*' не имеет смысла т.к. они и так передаются ссылкой и вы можете изменять значение параметра изменяя например переменную $_[0]. Переопределение встроенных функций. Большинство встроенных функций Пел можно переопределить своими собственными. Обычно это делают для удобства совместимости Пел для разных платформ систем. Для этого нужно перечислить имена этих функций в виде: use subs 'функция1', 'функция2' ....; и далее в модуле определить сами функции. Автозагрузка. Если вы попытаетесь вызвать не существующую функцию то Пел выдаст немедленно сообщение об ошибке. Но если вы определите подпрограмму с именем 'AUTOLOAD' то она будет вызвана с теми же параметрами а переменная $AUTOLOAD будет содержать имя не существующей подпрограммы. Данный механизм очень удобен для средств отладки.  * Модули (packages) *  В Пел реализован механизм модулей. Модуль это группа подпрограмм и переменных обычно включенных в один файл. Внутри одного модуля можно определить другой модуль. Начало модуля определяется директивой: packages имя_модуля; Конец модуля это конец блока или файла. Головной модуль имеет по умолчанию имя main. На имя внутри модуля можно ссылаться добавляя '::' после имени модуля. Например: $main::var1 - переменная в головном модуле. ::var1 - то же самое. Имя main можно опускать. $модуль1::var1 - переменная в модуле 'модуль1' $модуль1::модуль2::var1 - Модуль2 содержится в модуле 1. Только идентификаторы начинающиеся с буквы или символа '_' хранятся в пространтсве имен текущего модуля. Остальные хранятся в пространстве головного модуля main. Кроме этого имена STDIN, STDOUT, STDERR, ARGV, ARGVOUT, ENV, INC и SIG так же хранятся в головном модуле. Таблицы имен. Все имена модуля хранятся в ассоциативном массиве (хеше) с именем модуля к которому добавлены символы "::". Таким образом имена головного модуля хранятся в %main:: , модуля 'mod1' в %mod1:: и т.д. Выражение вида *имя указывает значение элемента хеша 'имя' это удобно для определения констант. Например: *pi = \3.14159; Здесь переменная $pi - это константа пи которую уже нельзя изменить. Конструкторы и деструкторы. Конструктор - это подпрограмма которая выполняется в момент создания объекта, а деструктор - удаления объекта. Для модуля это подпрограммы с именами BEGIN и END. При определении этих подпрограмм слово sub можно опускать. Конструктор BEGIN выполняется сразу как только возможно т.е. как только он определен даже не завершая дальнейший разбор программы. Можно указать несколько блоков BEGIN. Они будут выполняться один за другим в порядке определения. Деструктор END выполняется последним как только возможно т.е. при завершении работы интерпрератора. Можно указать несолько блоков END при этом они будут выполняться в обратном определению порядке. Классы. В Пел нет специального синтаксиса для классов. Но функционально полноценными классами могут быть модули. При этом подпрограммы модуля становятся методами, а с помощью массива @ISA можно реализовать механизм наследования в классах. Более подробно классы описаны отдельно. Создание библиотеки. Если вы хотоите создать модуль отдельным файлом и использовать как библиотеку подпрограмм, при этом вызывать подпрограммы библиотеки не указывая имени модуля, вам необходимо оформить модуль следующим образом: package имя_модуля; # Такое же как и имя этого файла без расширения '.pm' require Exporter; # Обязательная строка для экспорта имен @ISA = qw(Exporter); # -//- @EXPORT = qw(func1 func2) # Перечисляем имена функций. Внимание ! нет запятой! @EXPORT_OK = qw( $переменная @массив ); # Указать публичные переменные, массивы и т.д. если необходимо { # Начало блока модуля ..... sub func1 ........ sub func2 ........ 1; } Данный файл с расширением ".pm" должен храниться в одной из библиотечных директорий Пел. Они перечислены в массиве @INC одно из них обычно "/usr/local/lib/perl/". В головной программе вы указываете: use имя_модуля; и вам становятся доступны имена подпрограмм данного модуля. Стандартные Пел библиотеки. Стандартный набор библиотек обычно поставляется с дистрибутивом Пел они разделяются на pragma библиотеки (работают как директивы компилятору) и стандартные библиотеки. Pragma библиототеки. Данные библиотеки используют как: use имя; когда хотят включить действие и no имя; когда выключить. В стандартный набор входят следующие pragma: diagnostics Включить режим расширенной диагностики. integer Использовать целочисленную арифметику. less Режим минимальной загрузки компилятора. overload Режим переопределения операторов. sigtrap Режим слежения за прерываниями. strict Режим ограниченного использования "опасных" операторов. subs Режим обязательного декларирования подпрограмм. Стандартные библиотеки. AnyDBM_File Возможность работы с разными типами баз данных. AutoLoader Загрузка в память функций только во время вызова. AutoSplit Разделить модуль для автозагрузки. Benchmark Анализ скорости исполнения программы. Carp Предупреждения об ошибках. Config Доступ к конфигурации Пел. Cwd Получить имя текущей рабочей директории. DB_File Работа с базой данных формата Berkley DB. Devel::SelfStubber Режим отладки автозагрузки. DynaLoader Динамическая загрузка библиотек C. English Использовать длинные имена встроенных переменных. Env Импортировать имена переменных окружения Exporter Обеспечивает экспорт/импорт для модулей. ExtUtils::LibList Определяет используемые библиотеки. ExtUtils::MakeMaker Создает файл проекта Makefile ExtUtils::Manifest Программы для создания и проверки файла MANIFEST ExtUtils::Mkbootstrap Применеие файла начальной загрузки для DynaLoader. Fcntl Определения как и в С Fcntl.h File::Basename Синтаксический разбор спецификации файла. File::CheckTree Быстрый проход по директориям диска. File::Find Быстрый поиск файлов по директориям. FileHandle Обеспечивает объектный метод доступа к указателям файлов. File::Path Создание/удаление директорий. Getopt::Long Расширенная обработка опций. Getopt::Std Стандартная обработка опций. I18N::Collate Сравнение символов локалбной кодировки. IPC::Open2 Межпроцессорный обмен по чтению и записи. IPC::Open3 Межпроцессорный обмен по чтению, записи, и обрабоки ошибок. Net::Ping Тест доступа к хосту. POSIX Стандартный интерфейс по IEEE Std 1003.1 SelfLoader Загрузка функций только по вызову. Socket Определение структур и констант как и в С socket.h Test::Harness Стандартный тест с статистикой. Text::Abbrev Создание таблицы сокращений по списку. Подробное описание каждой библиотеки записано в самом файле. CPAN Програмисты всего мира работающие с Пел создали общедоступную библиотеку модулей CPAN. Она доступна через Интернет и содержит огромное количество различных по назначению модулей. К ним относятся документаторы, системные интерфесы, интерфейсы работы с базами данных, работа в сети, с файлами, Интернет-броузеры, системы поиска, огромное количество CGI скриптов для Web серверов и многое многое другое. Список некоторых CPAN серверов вы можете найти в приложении.  * Форматы *  В Пел реализован удобный метод создания форматированных отчетов. С помощью оператора format вы описываете заголовки, размеры полей, указываете положение данных на листе в удобной текстовой форме. Затем выполняете команду write(файл) которая выводит отформатированные данные в указанный файл. Оператор формат имеет следующий синтаксис: format имя = FORMLIST . Обратите внимание на то что описание формата идет после строки format и заканчивается символом '.' в начале строки. Здесь 'имя' - это имя формата, такое же как и имя указателя выходного файла. Если 'имя' отсутсвует то значение по умолчанию - STDOUT. FORMLIST - это строки формата. Они бывают трех типов: 1. Комментарий. Строка начинается символом '#'. 2. Описатель полей данных (picture). 3. Строка аргументов используемых описателем. Описатель - это строка которая выводится в виде "как есть" за исключением специально обозначенных форматов полей данных. Каждое поле начинается либо символом '@' либо '^'. В описательной строке указывается только положение и вид выводимых данных, но не имена полей и переменных. Для этого предназначена следующая строка аргументов которая следует всегда после описателя и содержит имена переменных или целые выражения в порядке указанном описателем. Размер и вид поля в описателе обозначается следующими символами: ">>>>" - выровнить значение по правому краю. "<<<<" - -//- по левому. "||||" - -//- по центру. "####.###" - формат числа с точкой. "@*" - многострочная строка. Данные выводятся в колонку. Размер поля равен количеству указанн