perl - 为什么我会得到 "Pseudo-hashes are deprecated"？

Question

我有这个代码

if (defined($xml->{account}->{p}) == '2') {
...
}

这给了我这个警告

Pseudo-hashes are deprecated at a.pl line 48.

问题是在某些情况下 $xml->{account}->{p} 不存在，这就是我添加 defined 函数的原因。
$xml 是一个对象，如果这有区别？

如何解决这个问题，让 Perl 不提示？

Answer 1

$xml 或 $xml->{account} 是 ARRAY，而不是 HASH(您可以使用 ref 来检查这一点，请参阅 perldoc -f ref )。 Perl 有一个现已弃用的功能，称为“伪散列”，它允许通过散列语法访问特殊数组。如果你关心历史，你可以谷歌搜索或查看旧版 Camel 书。