Question

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

addParams(\%params);

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

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

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

Answer 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 =＆gt; foo'，但现在每个都有不同的bar / baz。

Perl Hash引用

1 个答案: