Операции присваивания
В 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 с собой 2 раза)
Составные операции присваивания привлекают программистов компактной формой записи и тем, что они часто выполняются более эффективно.
