in reply to Re^2: Accessing hash elements inside another hash
in thread Accessing hash elements inside another hash

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

[download]
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);
  }
}

[download]

Replies are listed 'Best First'.
Re^4: Accessing hash elements inside another hash
by shmem (Chancellor) on Mar 11, 2009 at 23:08 UTC
    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";
    }
}

    [download]

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

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom