Re: Accessing hash elements inside another hash

[JavaFan]

Hard to answer that question. Your printing code iterates over %Data. You are populating %Queues. But you aren't putting hash(refs) as values of %Queues, but arrayrefs, which contain hashes. So you have hashes containing arrays containing hashes.

And your printing code assumes the keys of %Data are hashes. The never ever are. Hash keys are always strings. No exceptions. (Strings can be used as hashes if you want to use symbolic references. But I advice you not to. And if you want to anyway, you're are on your own).

[bar10der]

Sorry, made a mistake in putting code. Actually %queues is prepared and returned by a sub routine into %Data. So the code is -

my %Data = getQueues();

while (my ($key,$value) = each(%Data)){
    #print "$key = $value \n";
    for(my ($k,$v) = each($key->{'Queues'})){
        print "$k = $v \n";
    }
}

[jrsimmon]

You're use of $key in the inner loop is incorrect. It should be:

my %Data = getQueues();

while (my ($key,$value) = each(%Data)){
    #print "$key = $value \n";
    for(my ($k,$v) = each($Data{$key}->{'Queues'})){
        print "$k = $v \n";
    }
}

In general, accessing all key/value pairs in a HoH will look like:

foreach my $key (keys(%HoH)){
  foreach my $otherKey (keys($HoH{$key})){
    my $value = $HoH{$key}{$otherKey};    
    my $result = &DO_SOMETHING($value);
  }
}

[shmem]

You're use of $key in the inner loop is incorrect.

Yours is too... a hash reference cannot be stored (directly) as a hash key, only as value. so that should look like

my %Data = getQueues();

while (my ($key,$value) = each(%Data)){
    #print "$key = $value \n";
    for(my ($k,$v) = each(%$value)){
        print "$k = $v \n";
    }
}

although that snippet doesn't fit the OP's data structure, either. The following might work:

while (my ($key,$value) = each(%Data)){
    if (ref $value eq 'ARRAY') {
        for my $hashref (@$value) {
            print "  $_ => $hashref->{$_}\n" for keys %$hashref;
        }
    } else {
    print "$key = $value \n";
}