Язык программирования Perl
Язык программирования Perl читать книгу онлайн
Курс знакомит с языком программирования Perl, с его принципами, основными возможностями и особенностями в объёме, достаточном, чтобы начать разрабатывать прикладные и системные задачи, включая программирование для сети Интернет.
Курс является достаточно подробным введением в язык программирования Perl. Описывается уникальная культура Perl и особенности, отличающие его от других языков программирования и во многом обусловившие его популярность. Рассматриваются основные средства программирования на языке Perl версии 5.8. Разбираются богатые возможности языка для создания самых разных приложений, а также особый стиль программирования на Perl. Курс ориентирован на студентов, начинающих программистов или разработчиков, применяющих другие языки и желающих писать прикладные или системные программы на Perl.
Внимание! Книга может содержать контент только для совершеннолетних. Для несовершеннолетних чтение данного контента СТРОГО ЗАПРЕЩЕНО! Если в книге присутствует наличие пропаганды ЛГБТ и другого, запрещенного контента - просьба написать на почту [email protected] для удаления материала
Таблица 3.1.
| Функция | Описание | Пример использования | Результат (округленный) |
|---|---|---|---|
| abs $x | абсолютное значение $x | abs -25 | 25 |
| atan2 $y, $x | арктангенс y/x в интервале от -р до + р | atan2 25,5 | 1.37340077 |
| cos $x | косинус $x | cos 25 | 0.99120281 |
| exp $x | возвращает e в степени $x | exp 0.25 | 1.28402542 |
| int $x | целая часть от $x | int 25.25 | 25 |
| log $x | натуральный логарифм $x | log 25 | 3.21887582 |
| rand | случайное дробное число от 0 до 1 | rand | 0.97265625 |
| rand $x | случайное число от 0 до $x | rand 25 | 23.0430603 |
| srand | начинает новую случайную последовательность для rand | srand | 1 |
| sin $x | синус $x | sin 25 | -0.1323518 |
| sqrt $x | квадратный корень из $x | sqrt 25 | 5 |
| time | число секунд с начала отсчета (обычно с 01.01.1970) | time | 1139738006 |
| localtime | текущая или указанная дата и время | localtime | Sun Feb 12 14:55:25 2006 |
Наверное, одной из самых популярных встроенных функций можно назвать функцию print, выводящую список своих операндов в стандартный поток вывода (обычно на консоль), например:
print "Версия Perl=$]"; # вывести номер версии Perlprint 2474.918 / 381.65; # печатать частное от деленияprint "Укажите количество чисел: "; # напечатать запросПодробно об операциях ввода-вывода будет рассказано в лекции 9, где также будут изучены операции проверки файлов - другая разновидность именованных операций.
В Perl нет специальных литералов для обозначения истинного и ложного значения, подобно true и false в других языках программирования. Необходимость вычислить истинность или ложность выражения определяется логическим контекстом. Логический (или булев) контекст является разновидностью скалярного строкового, поэтому значение выражения преобразуется к строке. Если после преобразования выражения получается пустая строка (не содержащая ни одного символа) либо строка, состоящая из одного символа '0' (цифры "нуль"), то значение выражения считается ложным. Значения всех других выражений считаются истинными. Иногда результат вычисления истинности или ложности выражения может показаться немного непривычным, например:
'' или "" пустая строка, поэтому - "ложь"0 или 0.0 0 преобразуется в '0', поэтому - "ложь"+0 или -0 0 преобразуется в '0', поэтому - "ложь"5-(3+2) равно 0, который преобразуется в '0', поэтому - "ложь"undef неопределенное значение дает в результате '', поэтому - "ложь"'1' или 'false' не пустая строка и не '0', поэтому - "истина"'00' или '0.0' не пустая строка и не '0', поэтому - "истина"'-0' или '+0' не пустая строка и не '0', поэтому - "истина"'0 but true' не пустая строка, значит - "истина"Истинность или ложность значения выражения вычисляется для логических операций и операций сравнения.
В Perl есть отдельные наборы операций для сравнения чисел и строк. Обозначения операций сравнения чисел совпадают с обозначениями операций в других языках, основанных на синтаксисе языка C. В следующих примерах предположим, что в переменной $n хранится значение 25:
== равно (не путайте с присваиванием (=), например, $n == 4 ложно)!= не равно (например, $n != 8*2 истинно)< меньше, чем (например, $n < '16.08' ложно)> больше, чем (например, $n > 9 истинно)≤ меньше или равно (например, $n <= 26 истинно)≥ больше или равно (например, $n >= 24 истинно)<=> числовое сравнение (например, $n <=> 64 вернет -1)Последняя операция числового сравнения <=> (называемая на программистском жаргоне spaceship - "космический корабль, челнок"), возвращает значение -1, 0 или 1, если первый операнд операции соответственно меньше, равен или больше второго. Все эти операции создают числовой контекст, и строковые операнды этих операций перед сравнением преобразуются к числам. Например, сравнения 123 == ' 123' или '+123' == '123x' преобразуются к 123 == 123. Поэтому пустая строка считается равной нулю.
Обозначения операций сравнения строк похожи на обозначения сравнений в языке программирования Fortran. Они применяются, когда сравниваемые величины нужно рассматривать как строки. При сравнении строковых значений учитывается их положение в кодовой таблице символов: чем ближе к началу таблицы, тем меньше значение. В следующих примерах предположим, что в переменной $s хранится 'a':
eq равно (например, $s eq 'a' истинно)ne не равно (например, $s ne 'Y' истинно)lt меньше, чем (например, $s lt 'z' истинно)gt больше, чем (например, $s gt '9' истинно)le меньше или равно (например, $s le 'b' истинно)ge больше или равно (например, $s ge 'Z' истинно)cmp строковое сравнение (например, $s cmp 'Z' вернет результат 1)Последняя операция строкового сравнения cmp, так же, как операция числового сравнения <=>, возвращает одно из значений: -1, 0 или 1, если первый операнд операции соответственно меньше, равен или больше второго. При сравнении строк имеет значение их длина и содержащиеся в них пробелы: равными считаются посимвольно совпадающие строки одинаковой длины. Операции сравнения строк устанавливают строковый контекст, поэтому их числовые операнды преобразуются к строкам. При этом строковое сравнение чисел дает своеобразный результат, например, '20' больше '100', поскольку '2' находится в таблице символьных кодов позже, чем '1'. Проверка на частичное совпадение строк, которая часто требуется при обработке текста, выполняется с помощью регулярных выражений, которые будут рассмотрены в лекции 8.
Логические операции создают логический контекст выражения, поэтому эти операции возвращают строку '1' при истинном значении выражения и пустую строку (''), если оно ложное. Обозначение традиционных логических операций в Perl также заимствованы из языка C:
