Иллюстрированный самоучитель по Perl
Составные операторы - часть 6
Во всех операторах ветвления ключевое слово if может быть заменено на unless. В этом случае проверка выражения условия осуществляется на его ложность. Последний оператор if можно записать и так:
unless( $var >= 0} { # ВЫРАЖЕНИЕ!
print "Переменная отрицательна"; # БЛОК! } elsif ( $var == 0) { # ВЫРАЖЕНИЕ2
print "Переменная равна нулю"; # БЛОК2 } else {
print "Переменная положительна"; # БЛОКЗ }
При этом нам пришлось заменить ВЫРАЖЕНИЕ! на противоположное по смыслу.
Замечание
Все операторы if (unless) могут быть вложенными, т. е. в любом их блоке можно свободно использовать другие операторы ветвления.
