Perl unless 语句

Perl 的 unless 语句由一个布尔表达式后跟一个或多个语句组成。

语法

Perl 编程语言中 unless 语句的语法如下：

unless(boolean_expression) {
   # statement(s) will execute if the given condition is false
}

如果布尔表达式计算结果为 false，则将执行 unless 语句内的代码块。如果布尔表达式计算结果为 true，则将执行 unless 语句结束后的第一组代码（在闭合花括号之后）。

数字 0、字符串 '0' 和 ""、空列表 () 以及 undef 在布尔上下文中都为 false，所有其他值都为 true。通过 ! 或 not 对真值取反会返回一个特殊的假值。

流程图

示例

#!/usr/local/bin/perl
 
$a = 20;
# check the boolean condition using unless statement
unless( $a < 20 ) {
   # if condition is false then print the following
   printf "a is not less than 20\n";
}
print "value of a is : $a\n";

$a = "";
# check the boolean condition using unless statement
unless ( $a ) {
   # if condition is false then print the following
   printf "a has a false value\n";
}
print "value of a is : $a\n";

第一个 unless 语句使用了小于运算符 (<)，它比较两个操作数，如果第一个操作数小于第二个操作数，则返回 true，否则返回 false。因此，当执行上述代码时，它会产生以下结果：

a is not less than 20
value of a is : 20
a has a false value
value of a is :