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