Perl：比较2个哈希表值

Question

请建议如何比较两个哈希值之间的键值对。 基本上我想检查hash2中是否存在hash1 keyvalue对。

感谢

Answer 1

@pataka：我不是印刷两次，但做两个字母数字字符串比较。所以我已经打印一个蜇伤和另一个数字。我们甚至可以这样做，如下所示：

#Same Key and Value 
foreach my $val1 (keys %hash1) 
{ 
     foreach my $val2 (keys %hash2) { 

      if($val1 eq $val2)  { 
        if($hash1{$val1} eq $hash2{$val2}) { 
        print "Key:$val1\t" ; 
        print "Value:$hash1{$val1}\n"; 

         } 
        } 
       } 
     } 

Answer 2

@pataka：寻找到下面的代码，如果它是有帮助的：

#!/usr/bin/perl 
use strict; 
use warnings; 

my %hash1 = ('Jan' => 1 , 'Feb' => "abc" , 'Mar' => 3); 
my %hash2 = ('Jan' => 85 , 'Feb' => 44 , 'Mar' => 3 , 'Apr' => 23); 


#Same key 
foreach my $val1 (keys %hash1) 
{ 
     foreach my $val2 (keys %hash2) { 
      if($val1 eq $val2)  { 
       print $val1 . "\n"; 
        } 
       } 
     }   

#Same Value 
foreach my $val1 (values %hash1) 
{ 
     foreach my $val2 (values %hash2) { 
      if($val1 eq $val2)  { 
       print $val1 . "\n"; 
        } 
       } 
     } 

#Same Key and Value 
foreach my $val1 (keys %hash1) 
{ 
     foreach my $val2 (keys %hash2) { 
      if($val1 eq $val2 && $val1 =~ m/\d+/)   { 
        if($hash1{$val1} == $hash2{$val2}) { 
        print $val1; 
         } 
        } 
      if($val1 eq $val2 && $val1 =~ m/[A-za-z ]+/)   { 
        if($hash1{$val1} eq $hash2{$val2}) { 
        print $val1; 
         } 
        } 
       } 
     }