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

发布时间：2020-12-15 21:47:06 所属栏目：大数据来源：网络整理

导读：我是Perl的新手,我不想使用 List::Util max函数来查找给定数组的最大值. 当我测试下面的代码时,它只返回数组的第一个值,而不是最大值. sub max{ my @array = shift; my $cur = $array[0]; foreach $i (@array) { if($i $cur) { $cur = $i; } else { $cur = $

我是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;
   }

解决方法

更换

my @array = shift;

同

my @array = @_;

@_是包含所有函数参数的数组. shift只抓取第一个函数参数并将其从@_中删除.更改该代码,它应该正常工作！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!