Perl unless 语句
Perl unless 语句由一个布尔表达式和一个或多个语句组成。
语法
Perl 编程语言中的 unless 语句的语法是 −
unless(boolean_expression) {
# statement(s) will execute if the given condition is false
}
如果布尔表达式的计算结果为 false，则将执行 unless 语句中的代码块。 如果布尔表达式的计算结果为 true，则将执行除非语句结束后（右大括号后）的第一组代码。
数字 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 :
