如何在 Perl 中保存一组对象？

Question

我想保留一组（驼鹿）对象，因此每个对象只能出现一次。

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

更新

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

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。

Answer 2

注意此答案仅适用于每个类保留一个对象 - 如果OP的意思是“一个唯一的对象实例，但每个类有多个实例”，则此答案是错误的，并且应该用司南的。

实现这种方法（称为单例）的常见模式是实现用于创建此类对象的工厂方法和用于保存它们的存储。

因此，您将拥有：

• 包含工厂和对象集的包
• 该包有一个散列，键是对象的类型（您可以使用类名作为类型），值是该类型的对象。
• 工厂方法 make_object，作为参数之一提供对象的 type 来 make
• 返回特定类型的对象的访问器（基本上是上面提到的哈希中的查找）
• 可选地，“检索或创建”方法，其逻辑为 if (!exists_object($type)) { make_object($type);返回 get_object($type) }

Answer 3

如果您有一个可以表示为标量的域密钥，则可以仅使用常规哈希。

A) 您拥有由 VIN-1、VIN-2 和 VIN-3 标识的汽车。这些可以是哈希的键。

B) 您有按类型识别的汽车，“轿车”、“SUV”、“皮卡”。但您可以拥有多辆不同的轿车。本质上，除了对象的唯一存在之外，没有域密钥。这不能用哈希来完成（除非正如您提到的，您尝试使用引用的地址，但不确定这种做法有多好）。

Answer 4

我只需添加 MooseX::Singleton 到已经提到的单例解决方案列表。

Answer 5

最简单的代码是：

our $SINGLETON;
sub new {
    return $SINGLETON if $SINGLETON;
    # .... normal object creation
    $SINGLETON = $self;
    return $self;
}