如何構建我需要比較兩個哈希散列

Question

的哈希值，但我不能讓內一套鑰匙...

my %HASH = ('first'=>{'A'=>50, 'B'=>40, 'C'=>30}, 
      'second'=>{'A'=>-30, 'B'=>-15, 'C'=>9}); 
foreach my $key (keys(%HASH)) 
{ 
    my %innerhash = $options{$key}; 
    foreach my $inner (keys(%innerhash)) 
    { 
     print "Match: ".$otherhash{$key}->{$inner}." ".$HASH{$key}->{$inner}; 
    } 
} 

Answer 1

$options{$key}是一個標量（你可以告訴被領先$符印）。你要「解引用」，它用它作爲哈希：

my %HASH = ('first'=>{'A'=>50, 'B'=>40, 'C'=>30}, 
      'second'=>{'A'=>-30, 'B'=>-15, 'C'=>9}); 
foreach my $key (keys(%HASH)) 
{ 
    my %innerhash = %{ $options{$key} }; # <---- note %{} cast 
    foreach my $inner (keys(%innerhash)) 
    { 
     print "Match: ".$otherhash{$key}->{$inner}." ".$HASH{$key}->{$inner}; 
    } 
} 

當你準備好要真正深入到這些東西，看到perllol，perldsc和perlref。

Answer 2

我猜你說「選項」在那裏你的意思是「哈希」？

哈希只存儲標量，而不是其他哈希; ％HASH的每個值是一個散列引用需要被解除引用，所以你的內循環應該是：

foreach my $inner (keys(%{ $HASH{$key} }) 

或者：

my %HASH = ('first'=>{'A'=>50, 'B'=>40, 'C'=>30}, 
      'second'=>{'A'=>-30, 'B'=>-15, 'C'=>9}); 
foreach my $key (keys(%HASH)) 
{ 
    my $innerhash = $HASH{$key}; 
    foreach my $inner (keys(%$innerhash)) 
    { 
     print "Match: ".$otherhash{$key}->{$inner}." ".$innerhash->{$inner}; 
    } 
}