Perl 中的哈希集

Question

考虑以下代码：

$inFilesToCopy{$filename} = $filename;

我有一个哈希表，其中键和值都是文件名。我想避免使用额外的内存并且不存储文件名两次。

Perl中有set对象吗？

Answer 1

Set::Object 的作用如下
你会期望：

use Set::Object qw(set);

my $files = set();
$files->insert($file);
my @files = $files->members();

你也可以做集合数学：

my $a = set();
$a->insert(...);

my $b = set();
$b->insert(...);

my $only_in_a = $a - $b;
copy_to_b($only_in_a->members);

Answer 2

您可能会考虑这样做：

$inFilesToCopy{$_} = 1;

然后您可以进行这样的测试：

if($inFilesToCopy{$filename}) { ... }

您还可以使用“keys %inFilesToCopy”来获取文件列表。