perl - 为什么我的 Perl max() 函数总是返回数组的第一个元素？

Question

我对 Perl 比较陌生，我不想使用 List::Util max函数来查找给定数组的最大值。

当我测试下面的代码时，它只返回数组的第一个值，而不是最大值。

sub max
{
    my @array = shift;
    my $cur = $array[0];
    foreach $i (@array)
    {
        if($i > $cur)
        {
            $cur = $i;
        }
        else
        {
            $cur = $cur;
        }
    }
    return $cur;
   }

Answer 1

代替

my @array = shift;

和

my @array = @_;

@_是包含所有函数参数的数组。 shift只获取第一个函数参数并将其从@_ 中删除。更改该代码，它应该可以正常工作!