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