Perl Условные операторы — ЕСЛИ … ДАЛЕЕ

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

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

Число 0, строки «0» и «», пустой список () и undef все ложно в логическом контексте, а все остальные значения имеют значение true . Отрицание истинного значения ! or not возвращает специальное ложное значение.

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

Оператор if состоит из логического выражения, за которым следует одно или несколько операторов.

За оператором if может следовать необязательный оператор else .

За оператором if может следовать необязательный оператор elsif, а затем необязательный оператор else .

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

За оператором NOT может следовать необязательный оператор else .

За оператором NOT может следовать необязательный оператор elsif, а затем необязательный оператор else .

В последних версиях Perl вы можете использовать оператор switch . который позволяет простой способ сравнения значения переменной с различными условиями.

? : Оператор

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

Exp1 ? Exp2 : Exp3;

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

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

Live Demo

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

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

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