如何查找散列中的所有密鑰在Perl中具有值

Question

如何確定所有散列鍵是否具有某些值？

Answer 1

從perldoc -f exists：

   print "Exists\n" if exists $hash{$key}; 
       print "Defined\n" if defined $hash{$key}; 
       print "True\n"  if $hash{$key}; 

       print "Exists\n" if exists $array[$index]; 
       print "Defined\n" if defined $array[$index]; 
       print "True\n"  if $array[$index]; 

散列或數組元素可以是真 僅當它被定義，並且如果 它存在定義，但是反過來不 一定成立。

Answer 2

如果密鑰存在，它有一個值（即使這個值是undef）這樣：

my @keys_with_values = keys %some_hash; 

Answer 3

訂閱keys結果爲grep與defined

my @keys_with_values = grep { defined $hash{$_} } keys %hash; 

重讀你的問題，似乎你正在試圖找出你的散列中的任何值是否是未定義的，在這種情況下，你可以說類似

my @keys_without_values = grep { not defined $hash{$_} }, keys %hash; 
if (@keys_without_values) { 
    print "the following keys do not have a value: ", 
     join(", ", @keys_without_values), "\n"; 
} 

Answer 4

你的問題是不完整的。因此這種代碼可以是答案;-)

my %hash = (
    a => 'any value', 
    b => 'some value', 
    c => 'other value', 
    d => 'some value' 
); 
my @keys_with_some_value = grep $hash{$_} eq 'some value', keys %hash; 

編輯：我又重讀的問題，並決定這個問題的答案可能是：

sub all (&@) { 
    my $pred = shift(); 
    $pred->() or return for @_; 
    return 1; 
} 

my $all_keys_has_some_value = all {$_ eq 'some value'} values %hash; 

Answer 5

如果你只想知道是否所有值都已定義，或者任何未定義的值都可以這樣做：

sub all_defined{ 
    my($hash) = @_; 
    for my $value (values %$hash){ 
    return '' unless defined $value; # false but defined 
    } 
    return 1; #true 
} 

Answer 6

還有一種方法，使用each。 TIMTOWDI

while (my($key, $value) = each(%hash)) { 
     say "$key has no value!" if (not defined $value); 
}