0

我是 Perl 的新手，我无法弄清楚这一点。我有两组看似相同的代码，但一个子例程会更新值，而另一个则不会。在第一组代码中，我的理解是传递对数组的引用，然后更新该引用所指向的值。然后在离开子程序的时候，值已经改变了。但是，在第二个中，我希望会发生同样的事情。它确实更新了数组，但是在离开子例程后它忘记了它。有人可以用第二组代码向我解释幕后发生了什么吗？

第一个代码集：

#!/usr/bin/perl -w

use strict;

{
    my @array = (1, 2, 3);
    removeSecondElement(\@array);
    print @array;  #output: 13
    print("\n");
}

sub removeSecondElement{
    my ($arrayReference) = @_;
    splice(@$arrayReference, 1, 1);
    print @$arrayReference;  #output: 13
    print "\n";
}

第二个代码集：

#!/usr/bin/perl -w

use strict;

{
    my @array = (1, 2, 3);
    removeSecondElement(\@array);
    print @array;  #output: 123
    print("\n");
}

sub removeSecondElement{
    my ($arrayReference) = @_;
    my @array = @$arrayReference;
    splice(@array, 1, 1);
    print @array;  #output: 13
    print "\n";
}
4

1 回答 1

7

在第一个示例中，您使用引用来获取数组，然后对其进行修改。只有一个数组，您可以更改它。

在第二个示例中，您使用引用来获取数组，然后将数组的内容复制到第二个数组中，然后修改第二个数组。有两个数组，您永远不会更改原始数组。

于 2015-02-04T14:30:06.587 回答