Perl Hash of Hash reference query

kdelover · 02-19-2011, 02:57 AM

Hi,

I have a Hoh Which looks like this

Code:

my %Hash = ( 'Asia'   =>   {
                            'India'    => 'Delhi',
                            'Bhutan'   => 'Thimpu',
                            'Lanka'    => 'Colombo',
                           },

             'Europe'  =>  {

                            'UK'      => 'London',
                            'France'  => 'Paris',
                            'Spain'   => 'Madrid',
                           },

            'N.America'=>  {

                            'USA'     => 'Washington',
                            'Mexico'  => 'Mexico City',
                            'Canada'  => 'Ottawa',
                           },

            'S.America'=>  {
                            'Peru'    => 'Lima',
                            'Brazil'  => 'Brasilla',
                            'Uruguay' => 'Montevideo',
                           },

            'Australia'=> {
                            'Australia' => 'Canberra',
                            'New Zealand'=> 'Wellington',
                         },
        ) ;

If i do,

my $rec1=$Hash{'Asia'};
my $rec2=$Hash{'Europe'};
my $rec3=$Hash{'Australia'};

Is $rec1,$rec2,$rec3 a reference to those sub hashes? To print a sub hashes i am doing:

Code:

map {print $_."\n" } keys %{$rec1};

Is there any way i acn use a hash slice to print more than 1 key at a time ? Thanks

Bagration · 02-19-2011, 04:47 AM

Of cource $rec1,$rec2,$rec3 are references to the sub hashes.

Have a look at this.

http://docstore.mik.ua/orelly/perl/learn/ch05_05.htm

Or tell me what exactly you want to do.

Greetings B.