Perl 条件语句

Perl 条件语句

Perl 条件语句是通过一条或多条语句的执行结果(True或者False)来决定执行的代码块。

可以通过下图来简单了解条件语句的执行过程:

20211122215959335891200

注意,数字 0, 字符串 '0'"" , 空 list() , 和 undeffalse ,其他值均为 true。 true 前面使用 !not则返回 false 。

Perl 提供了下拉的条件语句:

语句描述

if 语句

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

if...else 语句

一个 if 语句 后可跟一个可选的 else 语句,else 语句在布尔表达式为假时执行。

if...elsif...else 语句

您可以在一个 if 语句后可跟一个可选的 elsif 语句,然后再跟另一个 else 语句

unless 语句

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

unless...else 语句。

一个 unless 语句 后可跟一个可选的 else 语句

unless...elsif..else statement

一个 unless 语句 后可跟一个可选的 elsif 语句,然后再跟另一个 else 语句

switch 语句

在最新版本的 Perl 中,我们可以使用 switch 语句。它根据不同的值执行对应的代码块。

三元运算符 ? :

我们可以使用 条件运算 ? : 来简化 if...else 语句的操作。通常格式为:


Exp1 ? Exp2 : Exp3;

如果 Exp1 表达式为 true ,则返回 Exp2 表达式计算结果,否则返回 Exp3。

实例如下所示:

实例


#!/usr/local/bin/perl
 
$name = "知识兔";
$favorite = 10;     # 喜欢数
 
$status = ($favorite > 60 )? "热门网站" : "不是热门网站";
 
print "$name - $status\n";

执行以上程序,输出结果为:


知识兔 - 不是热门网站
计算机