如何与具有哈希属性的 Perl 对象交互？

我有一个包含多个变量的类，其中一个是散列（_runs）：

sub new
{
    my ($class, $name) = @_;
    my $self = {
        _name => $name,
        ...
        _runs => (),
        _times => [],
        ...
    };
    bless ($self, $class);
    return $self;
}

现在，我要做的就是创建一个访问器/修改器，以及另一个将新数据推送到哈希中的子例程。但我很难让所有引用/取消引用/$self 调用一起工作。我已经因为“不能使用字符串（“blah”）作为哈希引用等”错误而烧伤了我的眼睛。

对于访问者来说，返回哈希值的“最佳实践”是什么？我应该使用以下选项中的哪一个（如果有）？：

return $self->{_runs};
return %{ $self->{_runs} };
return \$self->{_runs};

此外，当我在类中的其他子例程中使用哈希时，我应该使用什么语法来复制它？

my @runs = $self->{_runs};
my @runs = %{ $self->{_runs} };
my @runs = $%{ $self->{_runs} };
my @runs = $$self->{_runs};

迭代键也是如此：

foreach my $dt (keys $self->{_runs})
foreach my $dt (keys %{ $self->{_runs} })

那么实际添加数据怎么样？

$self->{_runs}{$dt} = $duration;
%{ $self->{_runs} }{$dt} = $duration;
$$self->{_runs}{$dt} = $duration;

你明白了。我一直在阅读有关使用类的文章以及有关引用和取消引用的文章，但我似乎无法让我的大脑结合这些知识并同时使用两者。我终于让我的 _times 数组工作了，但是模仿我的数组语法到哈希值不起作用。

您正在对象中存储对数组或哈希的引用。要将它们与标准函数一起使用，您需要取消引用它们。例如：

@{ $self->{_array_ref_key} }; 
%{ $self->{_hash_ref_key} };

如果需要将参数传递给标准函数：

push( @{ $self->{_array_ref_key} }, $some_value );
for my $hash_key ( keys %{ $self->{_hash_ref_key} }) {
    $self->{_hash_ref_key}{$hash_key}; ## you can access hash value by reference
}

Also $self->{_hash_ref_key}{$hash_key}语法是快捷方式$self->{_hash_ref_key}->{$hash_key}（如果您第一次看到它，这可能是有意义的）。

还看一下相应的手册页 http://perldoc.perl.org/perlref.html.