我不明白“推”回来的价值

Question

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 );

这是一个Perl脚本。我将值传递给子例程并将它们存储在@_中。为什么@array2评估为4？

Answer 1

$http州：

  

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

1. 你的myApp.controller('myController', function myController($scope, $http) { $scope.myVal = [{status:"before (working)"}]; doRequest(p1, p2); function doRequest(p1, p2) { $scope.myVal = [{ status: "prepare request (working)" }]; $http.post(url, myQuery).then(() => { $scope.myVal = [{ status: 'Finished' }]; // $scope is available here }); } } 以四个元素开头，因为你用4个参数调用你的sub。
2. 您@_来自shift数组的第一个元素。 @_返回已删除的元素。 shift数组现在包含3个元素。
3. 你@_将零push数组的末尾再次包含4个元素。 @_返回元素数量，并将其分配给push。