与包一起使用时，不推荐使用 Perl 使用哈希作为参考

Question

我有一个名为 News 的模块（原名，我知道），它有一个名为 get_fields 的方法，这个方法像这样返回属于该模块的所有字段

sub get_fields {
  my $self = shift;

  return $self;
} 

现在，当我在另一个模块中这样调用它时，我需要对字段进行处理

my %fields = %{ $news->get_fields };

我发现这样做可以避免这个问题

引用键的参数类型必须是 unblessed hashref 或 数组引用

当我像这样迭代其他字段时

foreach my $key ( keys %fields ) {
  %pairs->{$key} = %fields->{$key} if %fields->{$key};
}

为了使用字段的值，我收到此警告

不推荐使用哈希作为参考

它指向foreach循环。

如何在不返回 unbless 警告的情况下避免此错误消息？

Answer 1

我认为您在 objects 和 hashes 之间混淆了。 get_fields 将返回 $self - 虽然我无法确定，但看起来它将返回一个受祝福的对象。

现在，祝福对象与哈希非常相似，但它们并不相同。您可以使用ref 函数测试差异。

所以问题更多 - 为什么你这样做？为什么要尝试将对象引用转换为哈希？因为这就是你正在做的事情：

my %fields = %{ $news->get_fields };

因为从根本上说——即使这有效，也将是一件可怕的事情。对象的要点、目的和原因是封装——例如模块外部的东西不干涉内部的东西。

那么为什么不让get_fields 返回一个字段列表，然后您可以对其进行迭代并进行方法调用呢？这确实是做这样的事情的“正确”方式。

sub get_fields {
    my ( $self ) = @_;
    return keys %$self; 
}

或者如果您真的必须，在您的对象中嵌入一个方法，该方法以散列形式返回 - 而不是对象引用 - 然后您可以在外部进行操作。

通常 - 除非您正在操作整个哈希，否则您不会引用带有 % 前缀的哈希。

要从%pairs 中提取单个元素，您应该这样做：

foreach my $key ( keys %pairs ) { 
    print $pairs{$key},"\n";
}

如果$pairs{$key} 的内容是引用，那么您可以使用-> 表示您应该取消引用，例如$pairs -> {$key}。