Как определить значение для хеш-ключа в Perl?

Question

Я хотел бы знать, как определить значение для хэш-ключа в Perl. Может кто-то исправить мой код?

#!/usr/bin/perl 

use strict; 
use warnings; 
my %hash; 


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

Answer 1

точка Другого ответа по поводу определенности против существования является очень хорошим, но если вы на самом деле сделать хотят знать количество определенных значений, которые вы всегда можете сделать

print scalar grep { defined $_ } values %hash 

Answer 2

undef($hash{"a"}); 

эквивалентно

$hash{"a"}=undef; 

Так вы добавляете ключ 'а' со значением UNDEF. Для удаления значения из хеша используйте «delete».

delete $hash{"a"}; 

Невозможно иметь различный размер «ключей» и «значений» для того же хэша. Вы можете использовать grep для фильтрации нежелательных элементов.

Answer 3

undef $hash{$key}; 

это будет undef значение для этого ключа:

print "E" if exists $hash{$key}; # will print E 
print "D" if defined $hash{$key}; # will not print D