Некоторые сведения о Perl 5: различия между версиями

Материал из Викиучебника — открытых книг для открытого мира
Содержимое удалено Содержимое добавлено
Нет описания правки
м fix
Строка 1: Строка 1:
'''=== Переменные ===
=== Переменные ===


Переменные в Perl обозначаются символами <code>$</code> (''скаляры''), <code>@</code> (''векторы'' или ''массивы'') или <code>%</code> (''таблицы'' или ''ассоциативные массивы'') перед именем. Например:
Переменные в Perl обозначаются символами <code>$</code> (''скаляры''), <code>@</code> (''векторы'' или ''массивы'') или <code>%</code> (''таблицы'' или ''ассоциативные массивы'') перед именем. Например:
Строка 89: Строка 89:
print "a не равна 10"
print "a не равна 10"
unless ($a == 10);
unless ($a == 10);
</source>'''
</source>

Версия от 03:37, 14 декабря 2013

Переменные

Переменные в 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);