Re: printing refence of hash inside a hash

in reply to printing refence of hash inside a hash

Hi, try like this,

$data = {
    data => 'hello',
    complicated => {
                         version => 1,                                
+                 
                        type => 'struct',
                   },
    req => 'Submit'
};

foreach my $first (keys %$data ) 
{ 
 if (ref($data->{$first})) 
 {
  foreach my $second (keys %{$data->{$first}}) 
  {
   print " $second : ".$data->{$first}->{$second}."\n";
  }
 }
}
[download]

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

In Section Seekers of Perl Wisdom