为真理或存在检查Perl哈希键是否更好？

Question

当分配给只是键的哈希(其中值不是真正需要的)时,它是否更可取,说:

$hash{$new_key} = "";

或者说:

$hash{$new_key} = 1;

一个必须要检查一个键exists,另一个允许你说:

if (exists $hash{$some_key})

要么

if ($hash{$some_key})

我认为分配1会更好,但这有什么问题吗？它甚至重要吗？

Answer 1

这取决于您是否需要存在密钥或具有真正的价值.测试你需要的东西.如果你只是使用哈希来查看列表中是否有东西,那么exists()就是你要走的路.如果您正在做其他事情,检查值可能是要走的路.

Answer 2

当不需要这些值时,你会经常看到这个成语:

my %exists;
$exists{$_}++ for @list;

具有将其设置为1的效果.

Answer 3

如果你正在尝试保存内存(通常只有你有一个非常大的哈希值才有意义),你可以使用undef作为值并测试它的存在.Undef实现为单例,因此数千个undef都只是指向同一个值的指针.将每个值设置为空字符串或1将为每个元素分配不同的标量值.

my %exists;
@exists{@list} = ();

鉴于您后来对您的预期用途的评论,这是我多次见过和使用的习语:

my %seen;
while (<>) {
    next if $seen{$_}++; # false the first time, true every successive time
    ...process line...
}