2

пример отсюда -> http://citforum.ru/internet/perl_tut/syntax.shtml

$var = 1;
$var2 = 3 if $var > 0;

; почему не стоит после 3 ?, а стоит после условии...

А почему условие присваивется к переменной ? почему отдельно не написать ? как это может быть полезно ?

1
  • Можно и if ($var >0) {$var2 = 3}, если больше нравится C-style. TMTOWTDI.
    – user_587
    Commented 3 янв. 2021 в 17:12

1 ответ 1

5

Ларри Уолл, лингвист и заодно создатель языка perl решил сделать его похожим на английский язык. В Английском языке принято писать "assign var2 5 if var > 0" ("Присвоить var5 пять, если var больше 0") поэтому и язык perl унаследовал такой синтаксис записи одиночных условий. Условие пишется после выполняемого действия, без каких либо разделителей вроде точки с запятой, в случае если действие одно. И да, это очень не привычно, по сравнению с большинством других языков программирования.

Указанную строку можно написать на perl минимум двумя способами:

$var2 = 3 if $var > 0;  # Первый способ, унаследованный от английского

if $var > 0 {           # Второй способ, фигурные скобки обязательны.
    $var2 = 3           # А вот точка с запятой после единственного выражения внутри блока скобок
                        # не обязательна, но может и присутствовать
}

Оба этих варианта абсолютно равнозначны и выполняют одно и то же, пишите так, как вам больше нравится.

P.S. По замечанию @nörbörnën добавлю, что само по себе наличие фигурных скобок в конструкции (а они требуются во втором варианте) могут накладывать ограничения связанные с областями видимости. Так как любой блок в фигурных скобках в perl имеет собственную лексическую область видимости, то переменные объявленные лексическими (my) или статическими (state) внутри блока, окажутся не доступны снаружи. А локальные (local) вернут свое изначальное состояние за пределами блока. Так же может меняться поведение некоторых других конструкций, зависящее от лексических областей видимости.

7
  • Спасибо большое
    – Tiny
    Commented 3 янв. 2021 в 17:32
  • Майк, второй способ нельзя назвать равнозначным первому из-за того, что область видимости переменной $var2 ограничивается блоком в котором она объявлена и, значит, если $var2 объявлена внутри условного оператора то она не будет видна вне его. я понимаю, что ты это знаешь, но считаю, что в ответе этот нюанс должен быть упомянут Commented 3 янв. 2021 в 18:13
  • @Tiny пожалуйста, пометьте ответ принятым Commented 3 янв. 2021 в 18:17
  • 1
    хорошо-хорошо :) при use strict; my $var2 = 3 if $var1 > 0 не равнозначно if ($var1 > 0) { my $var2 = 3; } Commented 3 янв. 2021 в 18:22
  • 1
    @nörbörnën Замечание написал, но мне кажется это все таки немного в сторону от основного вопроса. А то так придется дописывать замечание про работу use/no, потом еще разные модули упоминать которые вводят собственные конструкции ...
    – Mike
    Commented 3 янв. 2021 в 18:55

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.