Question

我需要将变量，列表和哈希传递给子例程，并从中获取更改而不返回。

此代码不起作用。

sub foo{
    my $one = {$_[0]};   
    my @list = @{$_[1]};
    my %hash = %{$_[2]};
    print("\n inside foo: ${one}\n");
    print("\n inside foo: $one @list $hash{'key'}\n");
    $one = 2;
    @list = (4,5,6);
    my %hash2;
    $hash2{'key'} = 'valueModified';    
    %hash = %hash2;
    print("\n inside foo after Mod: $one\n");
    print("\n inside foo after Mod: $one @list $hash{'key'}\n");
}

my $one = 1;
my @list = (1,2,3);
my %hash;
$hash{'key'} = 'value';
my @allLocalArgs = (\$one,\@list,\%hash);
foo(\@allLocalArgs);
print("\nafter foo modification: $one @list $hash{'key'}\n");

输出：

 inside foo: HASH(0x234a240)

 inside foo: HASH(0x234a240)  

 inside foo after Mod: 2

 inside foo after Mod: 2 4 5 6 valueModified

after foo modification: 1 1 2 3 value

谢谢。

Answer 1

原则上，并且几乎在任何语言中，您都希望传递引用调用者，指针或引用中的数据结构的对象。在Perl中，这将作为参考-而您正在这样做。

但是，然后在子目录中创建本地副本；子中的$one，@list和%hash 是lexical variables sub's scope本地，掩盖/遮盖调用范围中的那些。对这些所做的更改不会超出sub的范围。

相反，直接使用您传递的引用来写入调用者的数据。

sub foo { my ($rscalar, $rary, $rhash) = @_; $$rscalar = 2; @$rary = (4,5,6); $rhash->{'key'} = 'valueModified'; } foo(\$one, \@list, \%hash);

现在调用代码中的$one，@list和%hash已更改。有关使用参考的详细信息，请参见教程perlreftut和参考perlref。

请注意，foo(\@allLocalArgs);传递带有参数的数组引用，因此子元素接收一个元素-该数组的引用。您可以这样做，但是对于问题而言，它不是必需的，因此我将其删除并直接传递了参数列表。

要注意的另一件事是，参数在@_中是别名的-因此，如果在子级中直接使用@_，那么您将在调用方中更改数据。因此，如果要将标量变量作为foo($one)传递，则子集中的$_[0] = 2会在调用者中更改$one。我认为原则上最好避免这种情况；如果要更改呼叫者的数据，则应使其尽可能明确；通过参考。

术语说明
Perl中的
A list 是一种难以捉摸的临时结构，用于在程序中移动数据。想一想堆栈中的一堆标量（值），它们将被使用并消失。也许是将参数传递给函数（foo($v1, $v2)），或者形成字符串（join '', $v1, $v2），或者创建匿名数组引用（[$v1, $v2]），等等。
另一方面， array 是多值变量。就像哈希（关联数组）一样，它是一个多值变量，而与标量相反，它是一个单值变量。

对此有很多记载；这里有一些容易出现的链接：Effective Perler article（带有更多文章的链接）和Stackoverflow页面Perl array vs list。

简而言之，您正在询问“标量，数组，哈希”。

如何将变量，列表，哈希传递给函数作为引用并在不返回的情况下获取调用者中的更改

1 个答案: