17.md

# Perl 中的`unless`语句

> 原文： [https://beginnersbook.com/2017/02/unless-statement-in-perl/](https://beginnersbook.com/2017/02/unless-statement-in-perl/)

perl 中的`unless`语句与 perl 中的[`if`语句正好相反。当给定条件为假时，它执行其体内的语句集](https://beginnersbook.com/2017/02/if-statement-in-perl/)。

```perl
unless(condition) {
   statement(s);
}
```

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

#### 例

```perl
#!/usr/local/bin/perl

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

**输出：**

```perl
Enter any number:99
num is less than 100
```