$i = $i + 2;

Остальные операторы этой группы работают аналогично. Допустимы следующие операторы: **=+=, -=, .=*=, /=, %=, x=&=, |=, ^=<<=, >>=&&=, ||=

Приоритет всей этой группы операторов равен приоритету '='.

Оператор ',' (запятая)

В скалярном контексте выполняется левый аргумент, результат игнорируется, затем правый и его результат есть результат действия оператора. В списковом контексте это разделитель элементов списка, который включает указанные элементы в список.

Операторы not, and, or, xor

Оператор логическое not (отрицание).
Унарный not возвращает противоположное значение, полученное выражением справа. Он эквивалентен '!', но имеет очень низкий приоритет.

Оператор логическое and (И).
Выполняет логическую конъюнкцию двух выражений. Эквивалентен '&&', но имеет очень низкий приоритет и "краткость" действия, т. е. если левое выражение равно false - левое не выполняется.

Логическое or (ИЛИ).
Выполняет логическую дизъюнкцию двух выражений. Эквивалентен '||', но имеет очень низкий приоритет и "краткость" действия, т. е. если левое выражение равно true - левое не выполняется.

Логическое xor (исключающее ИЛИ).
Выполняет логическое исключающие или. Всегда выполняются оба правое и левое выражение.

В Perl отсутствуют операторы языка С такие как: унарное &- получить адрес. Для этого применяется '\'.унарный *- переадресация.(TYPE)- совмещение типов.

Операторы ограничители строк.

Обычно ограничителями строк мы считаем литералы, но в Perl это операторы выполняющие разного рода интерполяцию и поиск по шаблону. Вы можете сами задавать удобные для вас ограничители. В следующей таблице приведен полный перечень вариантов. Фигурные скобки '{}' обозначают любой символ, используемый для ограничителя. В случае использования скобок (круглых '()', квадратных '[]', фигурных '{}', угловых '<>') в начале ставится открывающаяся скобка, а в конце закрывающая. ''q{}Literalнет""qq{}Литералда``qx{}Командадаqw{}Список слов//m{}Шаблондаs{}{}Подстановкадаtr{}{}Трансляциянет

По умолчанию	Полное	Функция	Интерполяция
нет

В строках допускающих интерполяцию имена переменных, начинающиеся с символов '$' или '@' - интерполируются, т.е. в строку вставляется значение строки или массива. Данные последовательности символов имеют специальное значение: \tсимвол табуляции\nсимвол новой строки\rвозврат\fперевод формата\vвертикальная табуляция\bbackspace (забой)\aзвонок\eescape\034восьмеричный символ\x1aшестнадцатеричный символ\c[символ управления\lнижний регистр следующего символа\uверхний регистр следующего символа\Lнижний регистр для всех символов до \E\Uверхний регистр для всех символов до \E\Eограничитель смены регистра\Qотмена действия метасимволов до \E

Шаблоны интерполируются как регулярные выражения. Это выполняется вторым проходом после интерполяции переменных, поэтому в шаблоны можно вставлять переменные. Для отмены интерполяции используйте '\Q'. Если вы применяете вложенные ограничители, то внутренние ограничители работать не будут.

?PATERN?

Действие этого оператора аналогично /шаблон/, но выполняется до первого совпадения. Это удобно для поиска наличия какой-нибудь строки в одном или множестве файлов. Это не очень удачный оператор, поэтому в следующих версиях Perl его возможно не будет.

m/PATERN/gimosx
/PATERN/gimosx

Поиск в строке по патерну (шаблону). В скалярном контексте возвращает логическое значение true (1) или false (''). Если строка не указана с помощью операторов '=~' или '!~', поиск ведется в строке $_ Опции: g- Глобальный поиск. Поиск всех вхождений.i- Сравнение не зависит от регистра (верхний или нижний)m- Строка многострочная.o- однопроходная компиляцияs- однострочная строкаx- используются расширенные регулярные выражения.

Если '/' - ограничитель, то начальное 'm' можно опустить. С помощью него в качестве ограничителя может быть любой символ кроме пробела.

PATTERN может содержать переменные, которые будут интерполироваться (перекомпилироваться) каждый раз в момент вычисления. Переменные $) и $| не интерполируются. Если вы хотите, что бы такой шаблон интерполировался один раз - добавьте /o. Это необходимо делать в циклах поиска для увеличения быстродействия, однако, если вы измените значение переменной, Perl этого даже не заметит.

Если PATERN - нулевая строка, то используется последнее регулярное выражение.

В скалярном контексте возвращается список элементы которого - результаты выполнения выражений в скобках патерна ($1, $2, $3...). Обратите внимание что первый элемент $1.

Пример:

     $a = "/usr/local/perl/perl.bin"; # Анализируемая строка

     @dirs =~ m[/(\w*)/(\w*)/(\w*)/(\w*)]

     print q#Привет.#;     # Результат Привет.

     print 'O\'K';          # O'K

     $var = 13;
     print "\$var = $var";

     print `date`;

     print qw/Построимся и спасемся!/; # ('Построимся','и','спасемся!')

     Построимсяиспасемся!

     use POSIX qw( setlocale localeconv )
     @EXPORT = qw( proc1 var );

     $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'.

     $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'

     while(<>) { print; }; # Прочитать и вывести весь файл STDIN

     while(<*.pl>) { print;}; # То же что и ls *.pl

     @files = <*>;     # Массив @files содержит имена файлов в директории

     use integer;

     no integer;