Perl Hash 引用答案

【问题标题】：Perl Hash by referencePerl Hash 引用
【发布时间】：2012-01-19 17:58:45
【问题描述】：

所以我正在尝试编写一个子例程，它接受一个哈希参数并向它添加一对键值对（通过引用）。到目前为止，我得到了这个：

addParams(\%params);

sub addParams
{
    my(%params) = %{$_[0]}; #First argument (as a hash)

    $params{"test"} = "testing";
}

但由于某种原因，它似乎没有添加“测试”键。我是 Perl 的新手，但这不是您通过引用传递哈希的方式吗？先谢谢了。

【问题讨论】：

标签： perl hash parameters reference subroutine

【解决方案1】：

您可以在不取消引用的情况下使用 hash-ref：

addParams(\%params);

sub addParams
{
    my $params = shift;

    $params->{"test"} = "testing";
}

编辑：

要解决您的代码问题，当您这样做时：

my(%params) = %{$_[0]};

您实际上是在使用 %{...} 复制 ref 指向的内容。你可以通过一个分解的例子看到这一点（没有功能，相同的功能）：

my %hash = ( "foo" => "foo" );
my %copy = %{ \%hash };

$hash{"bar"} = "bar";
$copy{"baz"} = "baz";

print Dumper( \%hash );
print Dumper( \%copy );

运行：

$ ./test.pl
$VAR1 = {
          'bar' => 'bar',
          'foo' => 'foo'
        };
$VAR1 = {
          'baz' => 'baz',
          'foo' => 'foo'
        };

两个哈希都有原来的 'foo => foo'，但现在每个都有不同的 bar/baz。

【讨论】：