11、Perl 子程序与输入输出全解析

Perl 子程序与输入输出全解析

1. 子程序的索引查找与返回值

在 Perl 中，我们可以编写一个子程序来查找数组中特定元素的索引。例如，要查找数组 @names 中 dino 的索引，代码如下：

# 查找元素在数组中的索引
sub find_index {
    my ($what, @array) = @_;
    foreach my $index (0..$#array) {
        if ($what eq $array[$index]) {
            return $index;
        }
    }
    return -1;
}

在这个子程序中， my 声明定义了参数 $what 和 @array 。 foreach 循环遍历 @array 的索引，检查 $what 是否等于当前索引处的元素。如果相等，则立即返回该索引。若未找到元素，则返回 -1 作为“未找到”的代码。虽然返回 undef 可能更符合 Perl 的风格，但这里选择了 -1 。

2. 省略子程序调用中的 & 符号

在 Perl 中，调用子程序时可以省略 & <