Язык программирования Perl

- унарный минус ($n = -$n; сменит знак числа в $n на противоположный)

- унарный минус ($s = -$s; добавит перед строкой в $s символ '-')

+ унарный плюс ($x = +$x; не изменит значения любой переменной)

Поскольку унарный плюс не изменяет значения выражения, он может применяться в ситуации, когда синтаксис требует наличия разделителя, а пробел использовать нежелательно. Например, при указании выражения для вычисления Рerl в командной строке.

К унарным операциям также относится операция вызова функции. Многие встроенные функции языка Perl, которые будут рассмотрены в последующих лекциях, в действительности являются именованными унарными операциями. Они могут записываться в традиционном для функций виде с круглыми скобками или как унарные операции без скобок: sin($x) или sin $x. В таблице 3.1 приведены математические функции и встроенные функции работы со временем.

Таблица 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=$]"; # вывести номер версии Perl

print 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' не пустая строка, значит - "истина"

Истинность или ложность значения выражения вычисляется для логических операций и операций сравнения.