的Perl：找到一個哈希這也是另一種散列

Question

我寫了這個簡單子的第一哈希鍵，它可以作爲銷售：

sub search_dispatch_table 
{ 
    my ($href1, $href2) = @_; 

    foreach my $key (keys %$href1) 
    { 
     return $key if exists $href2->{$key}; 
    } 
    return undef; 
} 

我只是想返回href1第一個關鍵，其也存在於href2 。

有沒有更好的方法來做到這一點？

Answer 1

您沒有指定您希望用來評估哪種解決方案更好的標準。

假設你的意思是「更快」，你可以使用each而不是keys加速最好的情況，但就是這樣。

sub search_dispatch_table { 
    my ($href1, $href2) = @_; 

    while (my ($key) = each(%$href1)) { 
     if (exists($href2->{$key})) { 
      keys(%$href1); # Reset iterator. 
      return $key; 
     } 
    } 

    return undef; 
}