in reply to Re: Re: Printing a hash of arrays ??
in thread Printing a hash of arrays ??

OK, I'm still confused...lol (I've created a data structure that I can't retrieve info from
I've revised my code to the following: 
foreach $key (keys %key_hash) {
    print "KEY: $key\n";
    print "MIN_TIME_DIFF: $key_hash{$key}{Min_Time_Diff}\n";
    print "MAX_TIME_DIFF: $key_hash{$key}{Max_Time_Diff}\n";
    print "ERROR STATUS: $key_hash{$key}{Error_Status}\n";
    foreach my $value (%{$key_hash{$key}}) {
    print "VALUE: $value\n";
    }
}

[download]
All I want to do is extract the two array elements from each key in the hash of hashes
My code is returning the following: 
KEY: response_1.3.6.1.2.1.2.2.1.12.27
MIN_TIME_DIFF: 1:00:00.0000
MAX_TIME_DIFF: 1:00:00.0000
ERROR STATUS: No error
VALUE: 1.3.6.1.2.1.2.2.1.15.28
VALUE: ARRAY(0x1e47028)
VALUE: 1.3.6.1.2.1.2.2.1.15.27
VALUE: ARRAY(0x1e49fc8)
VALUE: 1.3.6.1.2.1.2.2.1.11.27
VALUE: ARRAY(0x1e49fd8)

[download]
What am I doing wrong?

Replies are listed 'Best First'.
Re4: Printing a hash of arrays ??
by dragonchild (Archbishop) on Mar 27, 2003 at 15:40 UTC
    Try this: 
        foreach my $value (%{$key_hash{$key}}) {
        if (UNIVERSAL::isa($value, 'ARRAY'))
        {
            print "VALUE: @$value\n";
        }
        else
        {
            print "VALUE: $value\n";
        }
    }

    [download]

    ------
    We are the carpenters and bricklayers of the Information Age.

    Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

    Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

[reply]
[d/l]

In Section Seekers of Perl Wisdom