Проверка наличия строки в хеше

Question

Я хочу выполнить проверку со следующим условием. Если член %ans не содержится в %test, напечатайте это значение %ans. Но почему это не напечатало?

use Data::Dumper; 
my %ans = ("foo" => 1); 
my %test = ("bar" => 1); 



foreach my $ansrule (keys %{$ans} ) { 
    if (!exists $test{$ansrule}) { 
     print "ANS: $ansrule\n"; 
    } 
} 

https://eval.in/51453

Answer 1

Поскольку keys %{$ans} не то же самое, как keys %ans, и вы должны уже used the latter: $ans и %ans являются различными переменными.

%{$ans} пытается разыменовать хэш-код, хранящийся в переменной $ans, что, по-видимому, не определено. Вы добавили use strict; в код, вы бы увидели предупреждение ...

Global symbol "$ans" requires explicit package name 

Answer 2

Вы хотите

foreach my $ansrule (keys %ans ) 

вместо

foreach my $ansrule (keys %$ans ) 

use strict; use warnings; было бы полезно в обнаружении такие недостатки.