条件语句是Perl中控制程序执行流程的关键结构，通过判断条件的真假来决定代码块的执行。本文将全面介绍Perl的条件语句及其用法。

目录

  1. 条件语句简介
  2. if 语句及其变体
  3. unless 语句
  4. 条件语句修饰符
  5. 三元运算符
  6. 条件判断的运算符
  7. 参考资料

1. 条件语句简介

Perl 的条件语句基于表达式的真假判断：

  • 真：非0、非空字符串、非 undef。
  • 假：0、空字符串（""）、undef。

主要形式包括 if、unless、修饰符和三元运算符，灵活适应不同场景。

站内链接：了解Perl语法基础，见 Perl 基础语法。

2. if 语句及其变体

简单 if

当条件为真时执行代码块：

use strict;
use warnings;

my $temp = 25;
if ($temp > 20) {
    print "天气温暖\n";
}

if-else

提供真假两种分支：

my $hour = 14;
if ($hour < 12) {
    print "上午\n";
} else {
    print "下午\n";  # 下午
}

if-elsif-else

处理多条件：

my $speed = 70;
if ($speed > 80) {
    print "超速\n";
} elsif ($speed > 60) {
    print "正常\n";  # 正常
} else {
    print "慢速\n";
}

3. unless 语句

unless 是 if 的逻辑反转，条件为假时执行：

my $error = 0;
unless ($error) {
    print "没有错误\n";  # 执行
}

unless-else

my $count = 5;
unless ($count > 10) {
    print "小于等于10\n";  # 执行
} else {
    print "大于10\n";
}

提示：unless 适合简洁表达否定逻辑，但不推荐复杂嵌套。

4. 条件语句修饰符

条件可以作为语句的修饰符，放在后面，适合单行代码：

my $value = 100;
print "正数\n" if $value > 0;
print "非负\n" unless $value < 0;

结合其他操作

my $x = 3;
$x *= 2 if $x < 5;  # $x 变为 6
print "$x\n";

5. 三元运算符

三元运算符（?:）提供简洁的条件表达式：

my $age = 16;
my $status = ($age >= 18) ? "成人" : "未成年";
print "$status\n";  # 未成年

多条件嵌套

my $score = 75;
my $result = ($score >= 90) ? "优秀" : ($score >= 60) ? "通过" : "不及格";
print "$result\n";  # 通过

6. 条件判断的运算符

比较运算符

  • 数字：==（等于）、!=（不等于）、<、>、<=、>=
  • 字符串：eq（等于）、ne（不等于）、lt、gt、le、ge
my $num = 10;
my $str = "10";
if ($num == $str) { print "数字相等\n"; }  # 真
if ($num ne $str) { print "字符串不同\n"; }  # 真

逻辑运算符

  • &&（与）、||（或）、!（非）
  • 支持短路求值。
my $a = 1;
my $b = 0;
if ($a || $b) {
    print "至少一个为真\n";  # 执行
}
if (! $b) {
    print "b 为假\n";  # 执行
}

7. 参考资料

站内链接

出站链接

其他资源

  • 《Learning Perl》 – 控制结构章节。
  • X社区：搜索 #PerlConditionals 获取更多示例。

这篇指南重新整理了Perl条件语句的内容，提供了多样化的示例和说明。如果需要特定扩展（例如与正则表达式的结合或性能分析），请告诉我！