perl last 与if else 搭配

在 Perl 中，`last` 语句通常用于跳出循环，而 `if-else` 语句用于根据条件执行不同的代码块。

下面是一个简单的例子，演示了如何在 `if-else` 语句中使用 `last` 语句：

my @numbers = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

foreach my $num (@numbers) {
    if ($num == 5) {   # 如果 $num 等于 5
        last;          # 跳出循环
    } else {
        print "$num "; # 输出 $num 的值
    }
}

在上面的代码中，`foreach` 循环遍历了 `@numbers` 数组中的所有元素。如果当前元素的值等于 5，那么 `last` 语句会跳出循环。否则，程序会执行 `else` 语句块中的代码，打印出当前元素的值。

输出结果为：

1 2 3 4

注意，在使用 `last` 语句时，一定要确保它被放置在循环体内部，否则会产生语法错误。同时，也要注意 `if-else` 语句的语法，确保条件表达式和代码块的正确性。