Re: Direct reference to any element in a hash-of-hash


Perl Monk, Perl Meditation
	PerlMonks

Re: Direct reference to any element in a hash-of-hash

by neniro (Priest)

on Jun 15, 2006 at 12:45 UTC ( [id://555485]=note: print w/replies, xml )

Need Help??

in reply to Direct reference to any element in a hash-of-hash

If you don't want to get all those values or keys, you could use each to get just the first pair:

#!/usr/bin/perl

use strict;
use warnings;

my $hoh = {
    apples   => { source => 'uk', colour => 'red', },
    pears    => { source => 'uk', colour => 'green', },
    bananas  => { source => 'uk', colour => 'yellow', },
};

my (undef, $v) = each %$hoh;
print $v->{'source'}, "\n";
[download]

If you want to use each later in your script, remember to reset the iterator.