旧代码中已弃用“不能使用哈希作为参考”perl 错误

Question

我们有一些遗留代码抛出“不能使用哈希作为参考”perl 错误。之前的“修复”是关闭警告，但是新的 perl 已经将警告变成了一个硬错误，所以现在必须有人真正修复这个问题。

代码看起来像这样...

foreach my $a (keys %{$x->{'y'}}) {
        my $b = %$x->{'y'}->{$a};
        <some other stuff>
}

我的理解是像%j->{'k'}这样的东西应该转换成$j{'k'}，但是有两个指针的%$东西我处理不了了，因为我只懂这是最一般的级别。

似乎只有循环内的行导致错误，但我将 foreach 包括在内以供参考。

是否清楚原作者试图做什么？是否有明显的修复方法可以一劳永逸地解决这个问题？

谢谢。

Answer 1

只要去掉 % 就可以了。我无法想象还有什么意思。

Answer 2

看起来这个想法是迭代 $x->{'y'} 引用的哈希中的条目。 foreach 循环将 $a 依次设置为每个键。然后循环体会将相应的值分配给$b。

从keys 表达式我们可以看出$x 必须包含对哈希的引用，并且键'y' 下的值必须是对另一个哈希的引用。从中你可以得到$a下的值

my $b = $x->{'y'}->{$a};
# or: 
my $b = $x->{y}{$a};  # if you don't like typing

原始代码的问题在于%$x->{...} 部分。 %$x 取消引用 $x 中的引用，因此您得到的是一个实际的哈希值。 ->{...} 运算符然后尝试再次取消引用它，这是没有意义的（正如错误消息所说，哈希不是引用）。只需删除 % 并让 ->{...} 完成工作。

（或者，如果您觉得很疯狂，您可以使用(\%$x)->{'y'}->{$a}。除了%（取消引用$x 中的引用），我们使用\（引用哈希我们刚刚得到），然后可以被->{...}正确地（再次）取消引用。）

---

对于未来，盲目地消除警告通常不是一个好主意，尤其是当它们告诉您代码中的错误时。