的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; 
}