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

Содержимое удалено Содержимое добавлено

Линейный

Версия от 12:43, 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);

Мало ссылок на другие Вики-страницы. Статья может быть удалена...

@@ Строка 1: / Строка 1: @@
+<br />
 {{закрыто}}=== Переменные ===
@@ Строка 92: / Строка 93: @@
 {{закрыто-конец}}
 {{Внимание|}}
+Мало ссылок на другие Вики-страницы.
+Статья может быть удалена...