perl - 如何在 Perl 中保留一组对象？

Question

我想保留一组(Moose)对象，因此每个对象只能出现一次。

我想过使用哈希，其中键是对象的地址，然后在添加对象之前检查键是否存在。这是一种常见的做法吗？如何获取对象的地址？

更新

再想一想，简单地使用对象引用作为键有什么问题:

my %objects = ();

# some object (just created or or taken from somewhere...)
my $object ...

# add object to set
$objects{$object} = $object;

# operate on all objects
foreach my $obj (values %objects) {
...
}

Answer 1

您可以使用 Set::Object 。

要获取引用的地址，您可以使用 Scalar::Util::refaddr 。