更新Perl中哈希值哈希值

Question

我在Perl 非常初学者。 我有一个哈希$self ，其中包含其他哈希，特别是它包含具有key params的哈希。 我想将与params的关键color相对应的值从black为white 。 换句话说， $self是如何的：

{
    'params' => {
        'color' => 'black',
        #other keys/values here...
     },
    #other hashes here...
};

我想要的是：

{
    'params' => {
        'color' => 'white',
        #other keys/values here...
     },
    #other hashes here...
};

我试过的

sub updatePrice {
    my ($self, $text) = @_; # I can't change this
    my %params = %{$self->{params}};
    $params{color} = 'white'; 
    print Data::Dumper::Dumper{$params{color}};
    # ...
}

但是我Odd number of elements in anonymous hash警告中得到了Odd number of elements in anonymous hash ，而打印内容为$VAR1 = { 'white' => undef }; 。

我究竟做错了什么？

Answer 1

嗯，您的错误是由于Data::Dumper行中的{过多而引起的。

{}还是匿名哈希构造函数，因此您可以：

my $hashref = { 'key' => 'value' };

在将其传递给Data::Dumper之前，您只是在提供一个值，这就是您正在做的事情-这就是为什么您收到“奇数个元素”警告的原因。 （而{ 'white' }的哈希值并不是您要达到的目的）

尝试：

print Data::Dumper::Dumper  $params{color};

要不就：

print Data::Dumper::Dumper \%params;

而且-您可能以错误的方式执行- %params是$self的树的副本，因此更新它不会更改原始树。

my %params = %{$self->{params}};

创建一个副本。

您可能想要：

$self -> {params} -> {color} = "white"; 
print Dumper $self; 

可能值得注意的是- $self通常用于引用对象 ，如果将其用于“常规”哈希，可能会引起混淆。