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

В Perl присваивание является бинарной операцией. Ее левым операндом может быть переменная или другая конструкция языка, в которой можно хранить значение. Такая конструкция называется Lvalue ("L-значение", от английского left value), то есть "стоящая в левой части присваивания". Правым операндом может быть любое выражение, а значением выражения присваивания будет значение левого операнда. Например:

$num = 5 * 5

$str = 'Happy New Year!'

Поскольку присваивание - это обычная операция, она может участвовать в выражении не один раз, при этом вычисление происходит справа налево:

$n1 = $n2 = 25; # иначе говоря: $n2 = 25; $n1 = $n2;

Подобно языку C, в Perl имеются составные операции присваивания, совмещающие вычисление результата операции над левым и правым операндами с присваиванием этого результата левому операнду. То есть обычную запись присваивания результата операции переменной

переменная = переменная операция выражение

можно записать в сокращенной форме с использованием составного присваивания:

переменная операция= выражение

В записи составных операций между знаком операции и знаком равенства не должно быть пробела. Вот список допустимых составных операций присваивания с примерами использования:

**= присвоить результат возведения в степень ($n **= 3)

*= увеличить в ($n *= 4 значит увеличить $n в 4 раза)

/= уменьшить в ($n /= 5 значит уменьшить $n в 5 раз)

%= присвоить остаток от деления на ($n %= 6)

+= увеличить на (например, $n += 7 значит прибавить к $n число 7)

-= уменьшить на (например, $n -= 8 значит вычесть из $n число 8)

&&= И с присваиванием ($n &&= 2 значит присвоить $n=2, если $n истинно)

||= ИЛИ с присваиванием ($n ||= 2 т.е. присвоить $n=2, если $n ложно)

&= И с присваиванием ($n &= 2 значит выполнить над $n операцию &2)

|= ИЛИ с присваиванием ($n |= 2 т. е. выполнить над $n операцию |2)

^= ИСКЛЮЧАЮЩЕЕ ИЛИ с присваиванием ($n ^= 2 т. е. $n =$n ^ 2)

<<= сдвинуть влево и присвоить ($n<<=2 значит сдвинуть $n на 2 разряда влево)

>>= сдвинуть вправо и присвоить ($n>>=2 т. е. сдвинуть $n на 2 разряда вправо)

.= сцепить и присвоить ($n .= '2' значит сцепить $n с '2')

x= повторить и присвоить ($n x= 2 значит сцепить $n с собой 1 раз)

Составные операции присваивания привлекают программистов компактной формой записи и тем, что они часто выполняются более эффективно.

Кроме логических операций, управляющих вычислением выражений, в Perl есть другие операции, которые управляют вычислением нескольких выражений. Это операция "запятая", (или операция вычисления последовательности выражений) которая вычисляет сначала свой левый, а затем правый операнд. При этом значением выражения с этой операцией будет значение правого операнда, хотя это значение часто просто отбрасывается. Операция "запятая" применяется там, где по правилам языка должно быть одно выражение, но при этом нужно выполнить несколько вычислений. Например:

$row++, $col++ # увеличить значения двух счетчиков

$a = rand 5, $b = int $a # присвоить $a случайное число

$x+=1, $y=5, $z=$x/$y # то же, что ($x+=1, $y=5), $z=$x/$y

Операция выбора (или условная операция) - это единственная в Perl тернарная операция, в которой участвуют три операнда. Первый операнд - условное выражение, определяющее результат операции: если первый операнд истинный, то результатом будет значение второго операнда, иначе - значение третьего операнда. После первого операнда ставится знак вопроса, а после второго - двоеточие. Например:

($n < 0) ? 0 : --$n

$temperature < 20 ? 'холодно' : 'тепло'