Perl 子例程：sub 定义与参数

Perl 中的子例程（Subroutine）即可重复使用的代码块，类似于其他语言中的“函数”。掌握其定义与参数传递机制是编写模块化代码的基础。

1. 定义基础子例程

在 Perl 中定义子例程使用 sub 关键字。定义后的代码块不会立即执行，只有在被显式调用时才会运行。

输入 以下代码来创建一个简单的子例程：

sub say_hello {
    print "你好，世界！\n";
}

上述代码仅仅定义了行为，程序运行时不会有任何输出。执行 该代码块需要调用它。

2. 调用子例程

调用子例程主要有两种方式。在脚本内部，通常直接使用名称加括号的方式。

复制 并 运行 以下完整示例：

sub say_hello {
    print "你好，世界！\n";
}

# 方式一：使用 & 前缀（传统写法，现代 Perl 较少使用）
&say_hello;

# 方式二：直接使用名称加括号（推荐）
say_hello();

输出结果将会打印两行“你好，世界！”。

3. 理解参数传递机制：默认数组 @_

Perl 处理参数的方式非常独特。它不会在定义时声明参数变量，而是将所有传入的参数统一放入一个特殊的默认数组 @_ 中。这意味着子例程内部需要从这个数组中提取数据。

编写 以下代码观察参数如何传递：

sub show_args {
    print "接收到的参数: ", "@_", "\n";
    print "参数个数: ", scalar @_, "\n";
}

# 传入三个参数
show_args("苹果", "香蕉", "橘子");

在这个例子中，"苹果", "香蕉", "橘子" 被依次放入 @_ 数组。@_ 是子例程私有的，不会影响主程序中的其他变量。

4. 提取参数的常用方法

直接操作 @_ 数组虽然可行，但不够直观。通常使用 shift 函数或列表赋值来获取参数。

方法一：使用 shift 逐个提取

shift 函数默认从数组开头弹出一个元素并移除。在子例程内部，如果省略数组变量名，它默认对 @_ 进行操作。

修改 代码如下：

sub greet_person {
    # 将 @_ 的第一个元素移除并赋值给 $name
    my $name = shift;

    print "你好，$name！\n";
}

greet_person("张三");
greet_person("李四");
```

这种方式特别适合参数较少的情况，代码逻辑清晰。

#### 方法二：列表赋值（一次性提取）

当参数较多时，可以使用列表赋值一次性将 `@_` 的值赋给一组变量。这利用了 Perl 的列表上下文特性。

**输入** 以下代码：

```perl
sub calculate_sum {
    # 将 @_ 的前两个元素分别赋值给 $a 和 $b
    my ($a, $b) = @_;
    
    my $result = $a + $b;
    print "$a + $b = $result\n";
}

calculate_sum(10, 20);
```

下面对比两种提取方式的适用场景：

| 提取方式 | 代码示例 | 适用场景 |
| :--- | :--- | :--- |
| `shift` | `my $x = shift;` | 参数较少，或者需要处理后续剩余参数时 |
| 列表赋值 | `my ($x, $y) = @_;` | 参数固定且数量明确，注重代码可读性 |

---

### 5. 返回值

Perl 子例程的返回值非常灵活：它默认返回最后执行的那条表达式的计算结果。当然，也可以显式使用 `return` 关键字。

#### 隐式返回

**运行** 以下代码：

```perl
sub get_max {
    my ($x, $y) = @_;

    if ($x > $y) {
        $x; # 如果条件成立，最后执行的是 $x，返回 $x
    } else {
        $y; # 否则返回 $y
    }
}

print "较大值是: ", get_max(5, 12), "\n";
```

#### 显式返回

**使用** `return` 可以立即退出子例程并返回值，这在复杂的逻辑判断中更为安全。

**替换** 上述逻辑：

```perl
sub get_max_strict {
    my ($x, $y) = @_;
    
    if ($x > $y) {
        return $x;
    }
    return $y;
}

print "较大值是: ", get_max_strict(5, 12), "\n";
```

---

### 6. 处理不定长参数

由于参数存储在数组 `@_` 中，Perl 天然支持不定长参数。只需遍历 `@_` 即可处理任意数量的输入。

**编写** 一个求任意个数和的子例程：

```perl
sub sum_all {
    my $total = 0;

    # 遍历默认数组 @_
    foreach my $num (@_) {
        $total += $num;
    }
    
    return $total;
}

print "总和: ", sum_all(1, 2, 3, 4, 5), "\n";
print "总和: ", sum_all(10, 20), "\n";

此代码通过 foreach 循环动态获取传入的所有数字并累加，无论传入多少参数都能正确计算。