perl - 如何在 Perl 中取消定义哈希键的值？

Question

如何在 Perl 中取消定义哈希键的值？如何更正我的代码？

#!/usr/bin/perl

use strict;
use warnings;
my %hash;

undef($hash{"a"});
undef($hash{"b"});
print scalar values %hash; # Here I need 0
print scalar keys %hash; # And 2 here

Answer 1

undef($hash{"a"});

相当于

$hash{"a"} = undef;

因此，您添加了值为 undef 的键“a”。要从哈希中删除值，请使用“delete”。

delete $hash{"a"};

同一个哈希值不可能有不同大小的“键”和“值”。您可以使用 grep 过滤不需要的元素。