perl - 次の HoH の内部ハッシュ値と他のリストの内部ハッシュ値を比較する方法

Question

my %main_hash = ( 
    'hash1' => {
        'key1' => '1-111',
        'key2' => '1-222',
        'key3' => '1-333'
    },  
    'hash2' => {
        'key1' => '2-111',
        'key2' => '2-222',
        'key3' => '2-333'
    }   
);

内部ハッシュ (hash1) のキー値 (1-111、1-222、1-333) を次のリストの対応する値と比較する方法:

$list=   thekey1is : 1-111
         thekey2is : 1-222
         thekey3is : 1-333;

各比較の結果のフラグを維持しますか?

Answer 1

あなたはこのようなことをすることができます

#get all the keys
my @keys = keys %{ $main_hash{hash1} };

#check for each key
for my $key (@keys) {

    if  ($main_hash{hash1}{$key} == $main_hash{hash2}{$key}){
        print "$main_hash{hash1}{$key} and $main_hash{hash2}{$key} Match \n",
    }
    else{
        print "$main_hash{hash1}{$key} and $main_hash{hash2}{$key} Do not match \n",
    }


}