Условные операторы Perl - IF ... ELSE

Условные операторы Perl помогают в принятии решений, которые требуют, чтобы программист указал одно или несколько условий, которые должны быть оценены или протестированы программой, вместе с оператором или операторами, которые должны быть выполнены, если условие определено как истинное, и, необязательно, другие операторы, которые должны быть выполнены, если условие определено как ложное.

Ниже приводится общий вид типичной структуры принятия решений, встречающейся в большинстве языков программирования.

Число 0, строки '0' и "", пустой список () и undef - все false в логическом контексте, а все другие значения true. Отрицание истинной ценности! или же not возвращает специальное ложное значение.

Язык программирования Perl предоставляет следующие типы условных операторов.

Sr. No.	Заявление и описание
1	если заявление An if statement состоит из логического выражения, за которым следует одно или несколько операторов.
2	если ... еще заявление An if statement может сопровождаться необязательным else statement.
3	if ... elsif ... else инструкция An if statement может сопровождаться необязательным elsif statement а затем необязательным else statement.
4	если заявление An unless statement состоит из логического выражения, за которым следует одно или несколько операторов.
5	if ... else заявление An unless statement может сопровождаться необязательным else statement.
6	if ... elsif..else утверждение An unless statement может сопровождаться необязательным elsif statement а затем необязательным else statement.
7	оператор переключения В последних версиях Perl вы можете использовать switchзаявление. который позволяет просто сравнивать значение переменной с различными условиями.

? : Оператор

Давайте проверим conditional operator ? :который можно использовать для замены if...elseзаявления. Он имеет следующий общий вид -

Exp1 ? Exp2 : Exp3;

Где Exp1, Exp2 и Exp3 - выражения. Обратите внимание на использование и размещение двоеточия.

Значение? выражение определяется следующим образом: вычисляется Exp1. Если это правда, то Exp2 оценивается и становится значением всего? выражение. Если Exp1 ложно, то вычисляется Exp3, и его значение становится значением выражения. Ниже приведен простой пример использования этого оператора -

#!/usr/local/bin/perl
 
$name = "Ali";
$age = 10;

$status = ($age > 60 )? "A senior citizen" : "Not a senior citizen";

print "$name is  - $status\n";

Это даст следующий результат -

Ali is - Not a senior citizen