Arrays 我不知道'；I don’我不理解；推；返回 使用严格； 使用警告； 次最大值{ 我的@array=@； 我的@array1=班次（@）； my@array2=push（@，0）； 打印“@array\n”； 打印“@array1\n”； 打印“@array2\n”； 我的$i=0； foreach（@array）{ 如果（$i

这是一个Perl脚本。我将值传递给一个子例程，并将它们存储在

@

中。为什么

@array2

计算为4？

指出：

返回完成推送后数组中的元素数

您的

@

以四个元素开头，因为您使用四个参数调用sub

您可以从

@

数组中移动

第一个元素。
shift
返回删除的元素。
@
数组现在包含3个元素

将

零推到

@

数组的末尾，该数组再次包含4个元素。

push

返回元素的数量，并将其分配给

@array2

---

您已经得到了一个很好的答案，但我可以问一下您对

@array2

的期望吗？

use strict;
use warnings;

sub maximum_value {

    my @array  = @_;
    my @array1 = shift( @_ );
    my @array2 = push( @_, 0 );

    print "@array\n";
    print "@array1\n";
    print "@array2\n";

    my $i = 0;

    foreach ( @array ) {

        if ( $i < $_ ) {
            $i = $_;
        }
    }

    print "\nMax Value is $i";
}

maximum_value( 10, 15, 11, 13 );