Perl 中的unless语句

perl 中的unless语句与 perl 中的if 语句正好相反。当给定条件为假时，它执行其体内的语句集。

unless(condition) {
   statement(s);
}

unless正文内的语句在条件为假时执行。

示例如下:

#!/usr/local/bin/perl

printf "Enter any number:";
num = <STDIN>;
unless(num>=100) {
   printf "num is less than 100\n";
}

输出：

Enter any number:99
num is less than 100