Perl:散列键丢失了它们的类信息

Question

我有一个带有 X.pm 方法的包 data_x();例如，我使用 X 类的实例作为哈希 %seen 的键。
现在keys %seen的元素似乎已经忘记了他们的祝福:

use X;

my( $x, $y, %seen );

$x = X->new();
$x->data_x( 1 );

print " x:      ", $x, "\n";
print " x.data: ", $x->data_x(), "\n";

$seen{ $x } = 1;
$y = (keys %seen)[0];

print " y:      ", $y, "\n";
print " y.data: ", $y->data_x(), "\n";

这打印:

 x:      X=HASH(0x228fd48)
 x.data: 1
 y:      X=HASH(0x228fd48)
Can't locate object method "data_x" via package "X=HASH(0x228fd48)"
(perhaps you forgot to load "X=HASH(0x228fd48)"?) at test.pl line 15.

$x 和 $y 都指向同一个地址，但显然 keys 没有复制类信息。
为什么会这样？

Answer 1

他们不仅失去了祝福，他们甚至不再是 hashrefs。

在 Perl 中，您只能使用字符串作为哈希键。

所有不是字符串的东西都将变成字符串。所以散列中的键不再是一个对象，而是字符串 'X=HASH(0x228fd48)'(这是一个有福的 hashref 在打印时的样子)。没有办法从那个字符串中取回对象(除非你有另一个散列将这些键映射到原始对象)。

您需要使用唯一标识符作为哈希键。看来您可以使用当前的字符串版本(基本上是一个内存地址)来至少检查对象身份(对象在事件时似乎不会移动)，但我不确定这会有多稳定be(不过，一些由内而外的对象的实现似乎基于这个想法)，并且它不会为您提供对象相等性检查。