perl - 为什么要在 Learning Perl，第 6 版，ch. 的 &max 子例程示例中移动数组。 4个

Question

为什么数组在子程序开始时移位？

sub max {
    my($max_so_far) = shift @_;
    foreach (@_) {
        if ($_ > $max_so_far) {
           $max_so_far = $_;
        }
    }
    $max_so_far;
}    

只是给$max_so_far一个初值吗？程序运行完全一样

    my($max_so_far) = undef;

是否有特殊原因需要移动数组以开始？ (我问是因为我花了大约 10 分钟试图弄清楚为什么这种转变对子例程至关重要。)

Answer 1

如果将 $max_so_far 初始化为 undef，则程序不会完全相同地运行。如果所有输入值都是负数怎么办？