Владимир Маслов. Введение в Perl
страница №2
..." я бы даже сказал оригинальные операторы имеют оченьширокое применение в Пел. Можно даже назвать их "оригинальным" решением.
Оператор =~ логически связывает левую часть выражения с патерном (pattern -
образец, шаблон, модель) в правой. По умолчанию поиск или изменение по
патерну выполняется в переменной $_ Операторы привязки позволяют делать это
с любой переменной указанной в левой части. Логическим результатом будет
успех операции. Если в правой части вместо патерна присутсвует выражение,
то результат этого выражения воспринимается как патерн. Однако это не очень
эффективно т.к. патерн будет компилироваться во время исполнения программы
что заметно снизит быстродействие. Оператор !~ аналогичен =~ только
результат совпадения инвентируется (логическое "нет"). Подробное применение
этих операторов приводится в главе "Патерны".
Мультипликативные операторы.
'*' - арифметическое умножение
'/' - арифметическое деление
'%' - арифметический модуль
'x' - оператор повторения
В скалярном контексте возвращает строку левой части повторенную величиной
указанной в правой части. В списковом контексте, если в левой части список
в круглых скобках - повторенный список.
Пример:
print '*' x 5; # Результат '*****'
print (1,2) x 3; # Результат 121212
Аддитивные операторы.
'+' - арифметический плюс
'-' - арифметический минус
'.' - конкатенация (объединение) строк
Операторы сдвига.
'<<' - Сдвигает побитно влево значение выражения в левой части
на количество бит указанное в правой.
'>>' - Сдвигает побитно вправо значение выражения в левой части
на количество бит указанное в правой.
Именованные унарные операторы.
Фактически это функции с одним аргументом. Круглые скобки можно опускать.
Операторы отношений.
'<' - арифметическое меньше
'>' - арифметическое больше
'<=' - арифметическое меньше или равно
'>=' - арифметическое больше или равно
'lt' - строковое меньше
'gt' - строковое больше
'le' - строковое меньше или равно
'ge' - строковое больше или равно
Операторы равенства.
'==' результат true если левая часть равна правой (равно)
'!=' - не равно
'<=>' - -1 если левая часть меньше правой, 0 если равна,
1 если больше.
'eq' - строковое равно
'ne' - строковое не равно
'cmp' - как и '<=>' применительно к строкам
Операторы работы с битами.
'&' - побитное AND
'|' - побитное OR
'^' - побитное XOR
Логические операторы && (AND) и || (OR).
'&&' - если левое выражение возвращает false, правое не выполняется.
'||' - если левое выражение возвращает true, правое не выполняется.
Отличие от подобных операторов в С заключается в том, что в С возращаемое
значение либо 0 либо 1. Тогда как в Пел возвращается результат выражения.
Оператор диапазона '..'
Результат работы данного оператора зависит от контекста. В
списковом контексте результат есть список с элементами. Первый
элемент которого это левое выражение и последнее - правое.
Значение каждого элемента внутри списка увеличивается на 1.
Данный оператор удобен для небольших циклов т.к. память
отводится для всего списка целиком. Поэтому будьте внимательны
и не задавайте слишком большой диаппазон.
Пример:
for $i (1..4)
{ print "$i ";
}
Результат: 1 2 3 4
В скалярном контексте результат - логическое значение. Каждая '..'
операция устанавливает свое собственное состояние. Это false
до тех пор пока левый операнд false. Как только левый операнд
стал true результат - true до тех пока правый true, после чего
результат опять - false. Если вы не хотите проверять правый операнд
то используйте оператор '...'.
Правый операнд не вычисляется пока результат false и левый
операнд не вычисляется пока пока результат true. Приоритетность
оператора '..' немного ниже чем '&&' и '||'. Возвращаемое
значение если flase - нулевая строка, если true - порядковый номер
начиная с 1. Порядковый номер обнуляется для каждого нового диаппазона.
Последний порядковый номер добавляется строкой "E0" которая не изменяет
его значение но позволяет фиксировать последнее значение.
Пример:
@алфавит = ('a'..'z'); # Массив малых букв латинского алфавита
@цифры = (0..9); # Массив цифр
Условный оператор '?:'
Этот оператор работает так же как и в С. Если выражение перед '?'
истинно то выполняется аргумент перед ':' - иначе после ':'.
Пример:
$i = 1;
$i > 1 ? print "больше" : print "меньше";
Результат: меньше
Операторы присваивания.
'=' - обычный оператор "присвоить" правое значение переменной слева
Вся эта группа операторов подобна операторам С т.е.
$i += 2;
эквивалентно
$i = $i + 2;
Остальные операторы этой группы работают аналогично.
Допустимы следующие операторы:
**=
+= -= .=
*= /= %= x=
&= |= ^=
<<= >>=
&&= ||=
Приоритет всей этой группы операторов равен приоритету '='.
Оператор ',' (запятая)
В скалярном контексте выполняется левый аргумент, результат игнорируется
затем правый и его результат есть результат действия оператора.
В списковом контексте это разделитель элементов списка который
включает указанные элементы в список.
Оператор логическое not (орицание).
Унарный not возвращает противоположное значение полученное выражением
справа. Он эквивалентен '!' но имеет очень низкий приоритет.
Оператор логическое and (И).
Выполняет логическую конъюнкцию двух выражений. Эквивалентен '&&'
но имеет очень низкий приоритет и "краткость" действия. т.е
если левое выражение равно false - левое не выполняется.
Логическое or (ИЛИ).
Выполняет логическую дизъюнкцию двух выражений. Эквивалентен '||'
но имеет очень низкий приоритет и "краткость" действия. т.е
если левое выражение равно true - левое не выполняется.
Логическое xor (исключающее ИЛИ).
Выполняет логическое исключающие или. Всегда выполняются оба
правое и левое выражение.
С операторы отсутствующие в Пел.
В Пел отсутсвуют операторы языка С такие как:
унарное & - получить адрес. Для этого применяется '\'.
унарный * - переадресация.
(TYPE) - совмещение типов.
Операторы ограничители строк.
Обычно ограничители строк мы считаем литералами, но в Пел это операторы
выполняющие разного рода интерполяцию и поиск по шаблону. Вы можете
сами задавать удобные для вас ограничители. В следующей таблице
приведен полный перечень вариантов. Фигурные скобки '{}' обозначают
любой символ используемый для ограничителя. В случае использования
скобок (круглых '()', квадратных '[]', фигурных '{}', угловых '<>')
в начале ставится открывающаяся скобка а в конце закрывающая.
По умолчанию Полное Функция Интерполяция
---------- ------ ------------ ----
'' q{} Literal нет
"" qq{} Литерал да
`` qx{} Команда да
qw{} Список слов нет
// m{} Шаблон да
s{}{} Подстановка да
tr{}{} Трансляция нет
В строках допускающих интерполяцию имена переменных начинающиеся с
символов '$' или '@' - интерполируются т.е. в строку вставляется
значение строки или массива.
Данные последовательности символов имеют специальное значение:
\t символ табуляции
\n символ новой строки
\r возврат
\f перевод формата
\v вертикальная табуляция
\b backspace (забой)
\a звонок
\e escape
\034 восьмеричный символ
\x1a шестьнадцатеричный символ
\c[ символ управления
\l нижний регистр следующего символа
\u верхний регистр следующего символа
\L нижний регистр для всех символов до \E
\U верхний регистр для всех символов до \E
\E ограничитель смены регистра
\Q отмена действия метасимволов до \E
Шаблоны интерполируются как регулярные выражения. Это выполняется
вторым проходом после интерполяции переменных поэтому
в шаблоны можно вставлять переменные. Для отмены интерполяции
используйте '\Q'. Если вы применяете вложенные ограничители то
внутренние ограничители работать не будут.
?PATERN?
Действие этого оператора аналогично /шаблон/ но выполняется
до первого совпадения. Это удобно для поиска наличия какой
нибудь строки в одном или множестве файлов. Это не очень
удачный оператор поэтому в следующих версиях Пел его
возможно не будет.
m/PATERN/gimosx
/PATERN/gimosx
Поиск в строке по патерну (шаблону). В скалярном контексте возвращает
логическое значение true (1) или false (''). Если строка не указана
с помощью операторов '=~' или '!~' поиск ведется в строке $_
Опции:
g - Глобальный поиск. Поиск всех вхождений.
i - Сравнение не зависит от регистра (верхний или нижний)
m - Строка многострочна.
o - однопроходная компиляция
s - однострочная строка
x - используеются расширенные регулярные выражения.
Если '/' - ограничитель то начальное 'm' можно опустить. С помощью
него в качестве ограничителя может быть любой символ кроме пробела.
PATTERN может содержать переменные которые будут интерполироваться
(перекомпилироваться) каждый раз в момент вычисления.
Переменные $) и $| не интерполируются. Если вы хотите что бы
такой шаблон интерполировался один раз - добавьте /o.
Это необходимо делать в циклах поиска для увеличения быстродействия
однако если вы измените значение переменной Пел этого даже не заметит.
Если PATERN - нулевая строка то используется последнее регулярное
выражение.
В скалярном контексте возвращается список элементы которого
результаты выполнения выражений в скобках патерна ($1, $2, $3...).
Обратите внимание что первый елемент $1.
Пример:
$a = "/usr/local/perl/perl.bin"; # Анализируемая строка
Цель: Создать массив @dirs с именами директорий.
Решение:
Самый простой способ воспользоваться split('\/')
но в качестве примера используем скобки.
@dirs =~ m[/(\w*)/(\w*)/(\w*)/(\w*)]
Здесь 'm[' - использовать квадратные скобки как ограничители.
(\w*) - шаблон алфавитноцифровой последовательности.
В результате @dirs равен ('usr', 'local', 'perl')
q/строка/
'строка'
Строка литералов. Не интерполируется. Внутри строки разрешается использовать
\' или \\ для обозначения символов ' и \ .
Пример:
print q#Привет.#; # Результат Привет.
print 'O\'K'; # O'K
qq/строка/
"строка"
Интерполируемая строка.
Пример:
$var = 13;
print "\$var = $var";
Результат:
$var = 13
qx/строка/
`строка`
Сначало строка интерполируется а потом выполняется как
системная команда.
Пример:
print `date`;
Результат:
Thu Nov 14 13:36:49 MSK 1996
qw/строка/
Возвращает список элементы которого - слова строки разделенные
пробелами.
Пример:
print qw/Построемся и спасемся!/; # ('Построемся','и','спасемся!')
Результат:
Построемсяиспасемся!
Часто применяется как:
use POSIX qw( setlocale localeconv )
@EXPORT = qw( proc1 var );
s/шаблон/подстрока/egimosx
Поиск по шаблону и в случае успеха замена подстрокой.
Возвращает количество произведенных подстановок иначе false (0).
Если строка в которой ведестя поиск не указана (операторы =~ или != )
то используется переменная $_ .
Если в качестве раделителя '/' исрользовать одинарную кавычку (')
то интерполяции не будет иначе можно применять переменные в шаблоне
или подстроке.
Опции:
e - Расмматривать правую часть как выражение.
g - Глобальный поиск.
i - Без различия регистра букв
m - многосточная переменная
o - компилировать шаблон один раз
s - однострочная переменная
x - расширенное регулярное выражение
Разделитель '/' можно заменить на любой алфавитно-цифровой символ
кроме пробела.
Пример:
$var = "12345"; # исходная строка
$var =~ s/1/0/; # Заменить '1' на '0'. Результат 02345
$var =~ s(5)(.); # Заменить '5' на '.' Результат 0234.
Здесь в качестве разделителя применены скобки поэтому подстрока
взята в две скобки.
$var =~ s/\d*/каламбур/; Заменить все цифры. Результат 'каламбур.'
$var =~ s/а/о/g; # Заменить все 'а' на 'о'. Результат 'коломбур.'
$var = "12 34"; # Новое значение
$var =~ s/(\d\d) (\d\d)/$2 $1/; # Поменять местами числа. Результат '34 12'.
tr/таблица1/таблица2/cds
y/таблица1/таблица2/cds
Замена всех символов из "таблица1" на соответсвующий символ
из "таблица2". Результат - количество замен или стираний. Без оператора
=~ или != операция выполняется с строкой $_. Для совместимости с программой
sed вместо tr можно писать 'y'.
Опции:
c - дополнение "таблица1"
d - стереть найденные но не замененные символы.
s - "зжать" повторяющиеся замененные символы.
Если указана опция /d таблица2 всегда интерпретируется как положено.
Другими словами если таблица2 короче чем таблица1 то символ из таблицы1
интерпретируется всегда. Если таблица2 - null то все символы строки
остаются не изменненные. Это удобно для подсчета количества сиволов
в строке определенного класса или для сжатия повторяющихся символов
например пробелов.
Пример:
$s = "hello"; # Исходная строка
$s =~ tr/a-z/A-Z/; # Заменить малые буквы на большие. Результат
# 'HELLO'
$s = 'Hel....lo';
$s =~ tr/a-zA-z/_/c; # Заменить все не буквы на '_'
# Результат 'Hel____lo'
$s =~ tr/_/ /s; # Заменить '_' на ' ' и сжать.
# Результат 'Hel lo'
$s =~ tr/a-zA-Z /a-zA-Z/d; # Удалить все не буквы. Результат 'Hello'
Если один и тот же символ несколько раз указан в таблице1 то применяется
только первая замена.
Операторы ввода-вывода.
В Пел существует несколько операторов ввода-вывода. Первый это скобки
из символа '`' - акцента. Строка в этих скобках воспринимается как
системная команда и результат ее действия возвращается как "псевдо"
литерал. В скалярном контексте это строка содержащая весь результат,
а в списковом - список элементы которого - строки результата.
Статус выполненой команды хранится в переменной $? .
Следующая команда ввода вывода выгледит как '<файл>'.
Вычисление <файл> приводит к чтению строки из файла. Обратите внимание
что 'файл' здесь не имя файла а указатель файла который создается
функцией open(). В скалярном контексте читается одна строка вместе
с символом '\n' - перевода строки, а в списковом весь файл читается
в список элементы которого суть строки файла.
В случае обнаружения конца файла результат оператора не определен
и воспринимается как false. Если не указана переменная результата
то по умолчанию это $_. Указатель файла по умолчанию STDIN -
стандартный ввод.
Пример:
while(<>) { print; }; # Прочитать и вывести весь файл STDIN
У оператора '<>' есть одна отличительная особенность. Если в командной
строке нет никаких аргументов то читается стандартный ввод, если
есть аргументы то они считаются именами файлов которые последовательно
читаются.
Если в угловых скобках записана переменная то содержимое этой
переменной считается именем указателя файла или ссылкой на
указатель файла. Если такого указателя не существует то содержимое
переменной воспринимается как шаблон имен файлов и результат
- имена файлов на диске подходящих по шаблону.
Пример:
while(<*.pl>) { print;}; # То же что и ls *.pl
@files = <*>; # Массив @files содержит имена файлов в директории
но лучше сделать: @files = glob("*"); т.к. внутри скобок можно использовать
переменные.
Слияние констант.
Как и С Пел выполняет возможные вычисления в период компиляции.
Так подстановка символов после '\' , операция конкатенации строк,
арифметические выражения содержащие только одни константы, все это
делается в момент компиляции что существенно увеличивает скорость
выполнения программы.
Целочисленная арифметика.
По умолчанию Пел выполняет арифметику с плавающей запятой, но
если вы укажете:
use integer;
то компилятор будет использовать целочисленную арифметику до
конца текущего блока, хотя вложенный блок может это и отменить
в своих пределах с помощью:
no integer;
Встроенные функции
Встроенные функции используются как термы выражений и
подразделяются на две категории: списковые операторы и унарные
операторы. Это влияет на их приоритет по отношению к оператору
',' - запятая. Списковые операторы могут именть множество
(список) аргументов, а унарные только один. Таким образом
запятая завершает аргументы унарного оператора и разделяет
аргументы спискового.
Аргумент унарного оператора воспринимается обычно в
скалярном контексте а спискового как в скалярном так и
списковом причем скалярные аргументы идут первыми. В дальнешем
списковые аргументы мы будем обозначать словом 'LIST' это
значит что функция имеет список аргументов разделенных запятой.
Аргументы функций можно заключать в круглые скобки и таким
образом обозначать что "это функция" и приоритет не имеет
значения иначе это списковый или унарный оператор с
определенным фиксированным приоритетом. Пробел после имени
функции и скобкой значения не имеет. Поэтому будьте
внимательны!
Пример:
print 1 + 2 + 3; # результат 6
print(1+2)+3; # результат 3
print (1+2)+3; # опять 3
print (1+2+3); # 6
Если функция возвращает результат как в скалярном так и в списковом контексте
то код выхода по ошибке - скаляр c неопределенным значением или пустой
список.
Запомните правило:
Не существует общего правила преобразования списка в скаляр!
Каждый оператор и функция имеют свой вид значения в скалярном котексте.
Для одних это количество элементов из скалярного контекста. Для других
первый элемент списка или последний или количество
успешных операций. Каждый свое если вы специально не указываете.
Оператор '-X'.
-X указатель файла
-X выражение
-X
Проверка файла, где 'X' одно из ниже описанных значений.
Это унарный оператор с одним аргументом - либо именем файла либо
указателем файла. Проверяет одно из условий. Если аргумент не указан
то берется значение переменной $_. Для ключа -t STDIN.
Результат 1 если true и '' если false или неопределенное значение
если файл не найден. Несмотря на странный вид это унарный оператор
с соответсвующим приоритетом. Аргумент можно заключать в круглые скобки.
'X' имеет следующие значения:
-r Файл разрешен на чтение эффективным uid/gid
-w на запись -//-
-x исполнение -//-
-o принадлежит эффективному uid (идентификатор пользователя)
-R Файл разрешен на чтение реальным uid/gid
-W на запись -//-
-X исполнение -//-
-O принадлежит реальному uid
-e файл существует
-z пустой
-s не пустой
-f обычный текст
-d директория
-l символическая ссылка
-p pipes (конвейер)
-S socket (гнездо)
-b специальное блочное устройство
-c -//- символьное -//-
-t указатель на уст-во tty
-u установлен бит setuid
-g -//- setgid
-k -//- sticky
-T текстовой файл
-B двоичный
-M "возраст" файла в днях на момент старта скрипта
-A дней с последнего чтения
-C дней с последней модификации inode
abs выражение
Абсолютное значение выражения
accept NEWSOCKET, GENERICSOCKET
Окрыть новый сокит по внешнему запросу. Аналогично
системному вызову accept(). Возвращает адрес или false в случае
неудачи.
alarm секунды
Послать сигнал SIGALARM текущиму процессу
по истечении указанного промежутка времени. Не допустимо делать
несколько вызовов одновременно в одном промежутке времени.
Возвращает остаток времени предыдущего счетчика.
atan2 Y, X
Арктангес отношения Y к X в пределах от -pi до +pi.
bind сокит, имя
Назначить сетевой адрес сокиту. Подобно системному
вызову bind. Возвращает true в случае успеха и false иначе.
Имя - пакетный адрес сокита.
binmode файл
Открыть файл для двоичного (binary) режима доступа.
В обычном режиме при вводе символы CR LF транслируются в LF,
а при выводе LF транслируется в CR LF.
bless ссылка, класс
bless ссылка
Данная функция определяет что объект указанный ссылкой
принадлежит классу. Если класс не указан то он относится к текущему
классу. Обычно это последний оператор в конструкторе объекта.
Необходимо обязательно указывать имя класса если определяемый
объект может наследоваться классом-потомком.
caller выражение
caller
Возвращает контекст вызова текущей подпрограммы.
В скалярном контексте true если это подпрограмма или процедура
вызванная операторами eval() или require() и false - иначе.
В списковом это список ($package, $filename, $line)
где
$package - имя пакета
$filename - имя файла пакета
$line - номер строки откуда был сделан вызов.
Если указано выражение то возвращается список:
($package, $filename, $line, $subroutine, $hasargs, $wantargs)
Выражение определяет "глубину" вложенности просмотра стека вызовов.
$subroutine - имя подпрограммы
$hasargs - имеющиеся аргументы
$wantargs - необходимые аргументы
Применение данной функции в DB пакете возвращает более детальную
информацию. К списку аргументов добавляется список @DB::args.
chdir выражение
Перейти в директорию указанную выражением. Если
выражение отсутсвует то перейти в "домашнию" директорию.
Возвращает true в случае успеха и false - неудачи.
chmod список
Изменить права доступа к файлам указанным в списке.
Первый элемент в списке - числовое ,обычно восьмеричное значение прав.
Возвращает количество файлов которым были изменены права.
Пример: chmod 0666 'f1', 'f2', 'f3';
chomp переменная
chomp список
chomp
Удаляет в конце строки символ указанный переменной $/.
Обычно это 'LF'. Возвращает количество удаленных символов.
Если переменная не указана то используется переменная $_.
Если указан список то обрабатывается каждая строка списка и
возвращается общее количество удаленных символов.
chop переменная
chop список
chop
Полностью аналогично функции chomp но всегда удаляет
последний символ строки.
chown список
Изменить "владельца" и "группу" файлов списка.
Первый элемент - номер нового владельца, второй номер новой группы
а далее список файлов.
В большинстве Юникс-систем вы не сможете сменить владельца если вы
не суперпользователь, но можете изменить группу если это одна из
ваших "вторичных" групп.
chr чмсло
Возвращает символ с указанным кодом кодировки.
chroot директория
Сделать "корневой" указанную директорию.
"Корневая" - значит внутри программы на нее можно ссылаться как '/'.
close файл
Закрыть открытый файл или поток. Можно не использовать
если один и тот же файл открывается повтортно т.к. он будет
автоматически закрываться новым вызовом open().
closedir директория
Закрыть директорию открытую функцией opendir().
connect сокит, имя
Связаться с удаленным сокитом. Данная функция подобна
системному вызову connect(). Возвращает true в случае успеха
и false при ошибке.
cos выражение
Косинус выражения в радианах.
crypt текст, salt
Шифрация текта. Аналогично системному crypt().
dbmclose хеш
Закрывает связь между хеш и базой данных.
dbmopen хеш, база, режим
Ассоциировать указанный хеш и базу в определенном режиме.
Дело в том что в Пел реализован очень удобный механизм работы
с базами данных типа dbm, ndbm, sbdm, gdbm и Berkeley DB. Для этого нужно
связать (открыть) базу под именем хеша. Вся работа с записями
базы выполняется так будто это обычный хеш (ассоциативный массив).
Более подробно смотрите описание функции AnyDBM().
define выражение
Возвращает true если значение определено (существует)
и false если нет. Многие операции завершаются не определенным
значением, например чтение после конца файла, использование
не определенных переменных, системные ошибки и т.д.
Данная функция позволяет различать нулевое и не определенные
значения, определенность или не определенность функций или
ссылок. При использовании определенности ключа в хеше
она возвращает определен данный ключ или нет но не существует
он или нет.
delete выражение
Удалить значение из хеша. Возвращает удаляемое значение
или не определенность если ни чего не удаляется.
Удаление из массива окружения $ENV{} - изменяет окружение.
Удаление из хеша связанного с базой данных - удаляет запись в
базе данных.
die список
Если программа не была запущена из eval() данная
функция выводит список в поток STDERR и завершает работу
программы с кодом из переменной $!. Если $! содержит 0
то с кодом ($? >> 8). Если и это 0 то с кодом 255.
При вызове из eval() сообщение об ошибке заносится в переменную $@
и eval() завершается с неопределенным значением. Это позволяет
отробатывать ошибочные ситуации не завершая головной модуль.
Если строка из списка не завершается символом '\n' то дополнительно
печатается номер строки скрипта откуда вызвана функция и номер
входной строки исли таковой имеется.
do BLOCK
Это не совсем функция. Здесь возвращается значение
последнего оператора блока. Когда используется циклический модификатор
BLOCK исполняется перед проверкой условия цикла в отличии от обычных
циклов.
do подпрограмма
Устаревший метод вызова подпрограмм.
do выражение
Значение выражения воспринимается как имя файла Пел скрипта.
Изначально это применялось для включения подпрограмм библиотеки.
Сейчас правильней использовать вызовы use() и require() которые
обеспечивают контроль ошибок и завершения.
dump метка
Выполнние "дампа" текущей памяти. Применялось для
возможности исрользовать программу undump что бы включить текущий
исполняемый код в программу после инициализации всех переменных.
Выполнение этой новой программы будет начинаться оператором
goto метка. Если метка опущена то запуск сначала.
Внимание! Файлы открытые до момента дампа не будут открытыми
в момент исполнения новой программой.
each хеш
Возвращает 2-элементный массив. Первый элемент - ключ
второй - значение следующего элемента хеша. Позволяет
"просматривать" все значения хеша в определенном порядке.
Сброс переменной цикла происходит только после прохлждения всего
массива.
eof файл
eof()
eof
Возвращает 1 если выполняется чтение после конца или
чтение из не открытого файла. Аргументом должно быть выражение
возвращающее существующий указатель файла. Данную функцию нельзя
использовать для чтения файлов открытых как терминалы.
Если аргумент не указан то используется последний читаемый файл.
Использование в форме eof() целесообразно применять в циклах
while(<>) для определения конца только последнего файла из
списка. Применяйте eof(ARGV) или eof для определения конца
каждого файла из списка.
eval выражение
eval блок
Выражение сканируется и выполняется как обычная Пел программа.
Это делается в контексте текущей программы поэтому можно использовать
уже определенные переменные и подпрограммы.
Ворзвращается результат последнего оператора в блоке или значение
оператора return. Если обнаружится синтаксическая ошибка или выполнится
оператор die возвращается не определенное значение а переменная $@
содержит сообщение об ошибке. Если ошибки не было то $@ содержит
нулевую строку. При отсутсвии аргумента берется значение переменной $_.
exec список
Выполняется системная команда из списка и выполнение
программы завершается. Если вам необходимо вернуться то лучше
применяйте функцию system(). Если в списке количество аргументов
больше 1 или список это массив с количеством элементов больше 1
то выполняется системный вызов execvp() с аргументами из списка.
Если один скалярный аргумент то он сканируется на обработку
метасимволов и если они присутсвуют то полученные аргуметы
передаются интерпретатору /bin/sh -c для дальнейшей обработки.
Если метасимволов нет то аргумент расщепляется на слова и передается
системному вызову execvp() что более эффективно.
Внимание! exec() и system(0) не сбрасывают буфер ввода/вывода
поэтому необходимо установить переменную $| для предотвращения
потери выходной информации.
exists выражение
Возвращает true если существует указанный ключ хеша
даже если не определено его значение.
exit выражение
Выполнение программы завершается с кодом выражения.
exp выражение
Возвращает e (основание натурального логарифма) в степени
выражения.
fcntl файл, функция, скаляр
Выполняет системный вызов fcntl(). Для использования
обязательно выполнить use Fcntl;
fileno файл
Возвращает описатель файла для данного указателя файла.
flock файл, операция
Системный вызов flock()
fork
Системный вызов fork(). Возвращает pid потомка для родителя
и 0 для потомка в случае успеха иначе - неопределенное значение.
format
Декларативная функция Пел. Определяет формат вывода для
оператора write. Подробно смотрите главу Форматы.
formline формат, список
Внутренняя функция используемая в format. Форматирует
вывод параметров из списка. Результат помещается в переменную $^A
Функция write просто выводит значение этой переменной, но ее так же
можно читать а затем обнулять. Обычно format выполняе один вызов
formline для одной строки формы, но formline не разделяет строки
формата. Это значит что символы '~' и '~~' рассматривают весь
формат как одну строку поэтому необходимо использовать многострочные
формыд для описания одной записи формата.
getc файл
getc
Читает и возвращает символ из указанного файла.
Если файл не указан то читается STDIN. После конца файла возвращает
пустую строку.
getlogin
Возвращает текущий login из файла /etc/utmp
Не применяйте для идентификации пользователя он не так сильно
"закрыт" как getpwuid().
getpeername сокит
Возвращает упакованный адрес удаленного сокита.
getpgrp PID
Возвращает группу процесса с указанным PID. Если
аргумент отсутсвует возвращает группу текущего процесса.
getppid
Возвращает PID родительского процесса.
getpriority WHICH, WHO
Возвращает текущий приоритет процесса, группы процессов
или пользователя.
Группа системных вызовов
getpwnam NAME
getgrnam NAME
gethostbyname NAME
getnamebyname NAME
getprotobyname NAME
getpwuid UID
getgrid GID
getservbyname NAME, PROTO
gethostbyaddr ADDR, ADDRTYPE
getnetbyaddr ADDR, ADDRTYPE
getprotobynumber NUMBER
getservbyport PORT, PROTO
getpwent
gethostent
getnetent
getprotoent
getservent
setpwent
setgrent
sethostent STAYOPEN
setnetent STAYOPEN
setprotoent STAYOPEN
setservent STAYOPEN
endpwent
endgrent
endhostent
endnetent
endprotoent
endservent
Все эти функции анологичны одноименным системным вызовам.
В списковом контексте возвращают следующие списки:
($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpw*
($name, $passwd, $gid, $members) = getgr*
($name, $aliases, $addrtype, $length, @addrs) = gethost*
($name, $aliases, $addrtype, $net) = getnet*
($name, $aliases, $proto) = getproto*
($name, $aliases, $port, $proto) = getserv*
В скалярном контексте возвращается имя или что-то другое в зависимости
от типа функции.
Элемент $members в вызове getgr содержит разделенные пробелом имена
членов группы.
@addrs содержит IP адреса компьютеров в сети Интернет в упакованном виде.
Для распаковки применяйте: ($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 список
Выводит строку или список строк в файл. Возвращает 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 - дата последн...
