Perl 条件语句

在 Perl 中，条件语句用于根据条件执行不同的代码块。Perl 提供了多种条件语句结构，包括 if, unless, elsif, 和三元运算符等。以下是关于 Perl 条件语句的详细说明：

1. if 语句

if 语句检查条件是否为真（非零或非空），若为真则执行代码块。

my $age = 20;
if ($age >= 18) {
    print "You are an adult.\n";  # 输出 You are an adult.
}

• 结构：

  if (条件) {
      # 代码块
  }

2. if-else 语句

如果条件为假，执行 else 块。

my $age = 16;
if ($age >= 18) {
    print "You are an adult.\n";
} else {
    print "You are a minor.\n";  # 输出 You are a minor.
}

3. if-elsif-else 语句

处理多个条件。

my $score = 85;
if ($score >= 90) {
    print "Grade: A\n";
} elsif ($score >= 80) {
    print "Grade: B\n";  # 输出 Grade: B
} elsif ($score >= 70) {
    print "Grade: C\n";
} else {
    print "Grade: F\n";
}

• 结构：

  if (条件1) {
      # 代码块1
  } elsif (条件2) {
      # 代码块2
  } else {
      # 代码块3
  }

4. unless 语句

unless 是 if 的反向逻辑，条件为假时执行代码块。

my $age = 16;
unless ($age >= 18) {
    print "You are not an adult.\n";  # 输出 You are not an adult.
}

• 等价于：

  if ($age < 18) {
      print "You are not an adult.\n";
  }

• unless 也可以与 else 结合，但较少使用：

  unless ($age >= 18) {
      print "You are a minor.\n";
  } else {
      print "You are an adult.\n";
  }

5. 三元运算符

Perl 支持三元运算符（?:），用于简单的条件赋值。

my $age = 20;
my $status = $age >= 18 ? "Adult" : "Minor";
print "$status\n";  # 输出 Adult

• 结构：

  条件 ? 值1 : 值2

6. 条件表达式

Perl 的条件可以是任何表达式，非零、非空、或非 undef 视为真。

• 真值示例：1, "text", 42, @array（非空数组）。
• 假值示例：0, ""（空字符串），undef, ()（空数组）。

my $value = "";
if ($value) {
    print "True\n";
} else {
    print "False\n";  # 输出 False
}

7. 逻辑运算符

条件语句常与逻辑运算符结合使用：

• &&（与）：cond1 && cond2，两个条件都为真时为真。
• ||（或）：cond1 || cond2，任一条件为真时为真。
• !（非）：!cond，取反。

my $age = 20;
my $citizen = 1;
if ($age >= 18 && $citizen) {
    print "You can vote.\n";  # 输出 You can vote.
}

8. 短路求值

Perl 的逻辑运算符支持短路求值：

• &&：如果第一个条件为假，不检查第二个。
• ||：如果第一个条件为真，不检查第二个。

my $x = 0;
$x || print "x is false\n";  # 输出 x is false

9. 语句修饰符

Perl 允许将条件语句写为单行修饰符，适合简单逻辑。

my $age = 20;
print "Adult\n" if $age >= 18;  # 输出 Adult
print "Minor\n" unless $age >= 18;  # 无输出

10. 注意事项

• 严格模式：使用 use strict; 强制变量声明，避免错误。

  use strict;
  my $x = 10;
  if ($x > 5) { print "x is large\n"; }

• 隐式变量：条件语句常与默认变量 $_ 结合使用。

  foreach ("apple", "banana") {
      print "Fruit: $_\n" if /a/;
  }
  # 输出：
  # Fruit: apple
  # Fruit: banana

• 可读性：复杂条件建议使用括号提高清晰度。

  if (($x > 5 && $y < 10) || $z == 0) { ... }

11. 示例：检查用户权限

use strict;
my $user_role = "admin";
my $is_logged_in = 1;

if ($user_role eq "admin" && $is_logged_in) {
    print "Access granted to admin panel.\n";
} elsif ($user_role eq "user" && $is_logged_in) {
    print "Access granted to user dashboard.\n";
} else {
    print "Access denied.\n";
}
# 输出：Access granted to admin panel.

如果你有具体问题或需要更复杂的条件语句示例，请告诉我！