如何在 Perl 中表示集合？

Question

我想用 Perl 表示一个集合。我通常做的是使用带有一些虚拟值的哈希，例如：

my %hash=();
$hash{"element1"}=1;
$hash{"element5"}=1;

然后使用 if (define $hash{$element_name}) 来确定元素是否在集合中。

这是常见做法吗？有什么改进的建议吗？

另外，我应该使用define还是exists？

谢谢

Answer 1

是的，以这种方式构建哈希集是一种常见的习惯用法。请注意：

my @keys = qw/a b c d/;
my %hash;
@hash{@keys} = ();

优于使用 1 作为值，因为 undef 占用的空间要少得多。这也迫使您使用 exists （无论如何，这是正确的选择）。

Answer 2

使用 CPAN 上的众多 Set 模块之一。从您的示例来看， Set::Light 或 Set::Scalar 似乎合适。

---

我可以用 CPAN 的常用论点来捍卫这一建议（不考虑可能的协同效应）。

1. 我们如何知道现在和将来所需要的只是查找？经验告诉我们，即使是最简单的程序也会扩展和蔓延。使用模块可以预见到这一点。
2. API 比临时实现更适合维护，或者需要阅读和理解一般代码的人，因为它允许在不同的抽象级别考虑部分问题。
3. 与此相关的是，如果事实证明开销是不可取的，则可以通过删除间接或削减数据结构和源代码来轻松地将模块转变为简单模块。但另一方面，如果需要更多功能，则以相反的方式实现会更加困难。
4. CPAN 模块已经过测试，并且在某种程度上经过彻底调试，也许 API 随着时间的推移也经历了改进步骤，而对于 ad-hoc，程序员通常会实现想到的第一个设计。

很少有事实证明一开始就选择一个模块是错误的选择。

Answer 3

我一直都是这样做的。我倾向于使用 exists 而不是 define 但它们都应该在这种情况下工作。