Некоторые сведения о Perl 5

Переменные

Переменные в Perl обозначаются символами $ (скаляры), @ (векторы или массивы) или % (таблицы или ассоциативные массивы) перед именем. Например:

my $answer = 42;
my @name = ("Smith", "John");
my %favorites
    =  ("color" => "green",
        "fruit" => "watermelon");

Типы чисел в Perl

bool одно из двух значений ( TRUE, FALSE )
+/- плюс/минус

Функция print

Функция print последовательно выводит аргументы в указанный поток (по-умолчанию: на стандартный вывод.) Например:

print ("Hello", @name, "!\n"); # предполагаем local $, = " ";
print STDERR ("ERROR!\n");

Арифметические операторы

Perl поддерживает вполне обычный набор арифметических операторов:

+, -, *, /, %

сложение, вычитание, умножение, частное и остаток от деления, соответственно;

&, |

поразрядные битовые умножение и сложение; пример: 123 & 456 → 72 (001111011₂ ⊙ 111001000₂ = 001001000₂.)

<<, >>

целочисленный битовый сдвиг (умножение на 2ⁿ.)

\

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

my $answer = 1;
my $reference = \$answer;
$$reference = 42;
# переменная $answer теперь хранит значение 42

В двойных кавычках указывает на особое значение следующего символа. В частности:

• \n — разрыв (перевод) строки;
• \t — табуляция;
• \N{имя} — символ по имени или кодовой позиции Unicode (с ведущим U+);
• \" — двойная кавычка (без экранирующего \ двойная кавычка стала бы закрывающей для данной строковой константы.)

Примеры:

"Текст \"текст\", текст";
"\N{U+263a}\n"; # → "☺\n"

NB: в некоторых случаях, форма "Текст «текст», текст" может быть более уместна, чем "Текст \"текст\", текст".

Формы q {} и qq {}

Альтернатива одинарным и двойным кавычкам, позволяющая применять произвольный разделитель. Подобно:

q /Текст "текст", текст/
qq {Текст "текст", текст}

Операторы if, unless

Синтаксис

if (условие) блок операторов

Пример:

my $a = 10;
if ($a == 10) {
    print "a равна 10";
}
unless ($a == 10) {
    print "a не равна 10";
}

Отметим, что Perl позволяет указывать операторы if и unless после условной ветви, подобно:

print "a равна 10"
    if ($a == 10);
print "a не равна 10"
    unless ($a == 10);

Мало ссылок. Дополните содержания учебника.