Perl: цикл по два хэши

Question

Я хочу, чтобы петли в течение двух хэшей как-то так, что если ключи Hash А, равны значения хэш-B, а затем сделать что-то:

например.

my $hash1 = { 
    'STRING_ID1' => {default => 'Some string'}, 
    'STRING_ID3' => {default => 'Some string'}, 
    'STRING_ID5' => {default => 'Some string'}, 
    'STRING_ID7' => {default => 'Some string'}, 
}; 

my $hash2 = { 
    content => 'STRING_ID', 
    content1 => 'Some text that doesn't equal an ID', 
    content2 => 'STRING_ID_5', 
    content3 => 'STRING_ID_8', 
}; 

Если эти значения равны, то я хочу вызвать службу, которая получает меня локализованной строки

Единственный способ, которым я могу думать:

while (($key, $value) = each (%hash1, %hash2)) { 
    if ($key eq $value) { 

     $service->getLocalizedString($key); 

    } 
} 

Answer 1

Поскольку они хэши, вам не нужно использовать цикл, чтобы выполнить поиск по ключу.

while (my ($key2,$value2) = each %$hash2) { 
    if (exists $hash1->{$value2}) { 
     print "($key2,$value2) from \$hash2 "; 
     print "matches ($value2,$hash1->{$value2}) from \$hash1\n"; 
    } 
} 

Answer 2

Насколько я понимаю, вопрос, который вы хотите проверить, если% hash1 содержит элемент с заменой строки, для идентификаторов, перечисленных в значениях в% hash2?

while (my ($key,$value) = each(%$hash2)) { 
    # check if we have an entry in $hash1 
    if (exists $hash1->{$value}) {  
     # call service with the STRING_ID as argument 
     $service->getLocalizedString($value); 
    } else { 
     # nothing found 
    } 
}