how do i print the elements of this PERL datastructure

gaynut · 09-12-2008, 06:38 AM

Hi,
Can somebody tell how to print the elements of the below data structure.

@arr= (
"List1"=>
{India=>"Delhi",Srilanka=>"Columbo"},
"List2"=>
{Pakistan=>"islamabad",Afghanisthan=>"kabul"},
);

Thanks,
~gaynut

chrism01 · 09-12-2008, 07:24 AM

Try data dumper: http://perldoc.perl.org/Data/Dumper.html

chrism01 · 09-14-2008, 07:39 PM

OR 2 different ways:

Code:

#!/usr/bin/perl -w
use Data::Dumper;
use strict;             # Enforce declarations

my (
    @arr, $elem1, $key1
    );

@arr= (
"List1",
{India=>"Delhi",Srilanka=>"Columbo"},
"List2",
{Pakistan=>"islamabad",Afghanisthan=>"kabul"},
);

print Dumper(@arr);


for $elem1 (@arr)
{
    if( ref($elem1) eq "HASH" )
    {
        for $key1 (keys %$elem1 )
        {
            print "$key1 $elem1->{$key1}\n";
        }
    }
    else
    {
        print "$elem1\n";
    }
}

gaynut · 09-18-2008, 09:41 AM

Thanks chrism01.
i came to know about dumper module thro' this.
Btw, sorry for the delayed reply.
I gotta work on it only today.

Thanks
~ gaynut

chrism01 · 09-18-2008, 07:25 PM

No worries.
If you haven't already, bookmark/read these:
http://perldoc.perl.org/
http://www.perlmonks.org/?node=Tutorials