http://www.perlmonks.org?node_id=615049

opensourcer has asked for the wisdom of the Perl Monks concerning the following question:

I'm unable to print values of hash who is inside of another hash. I'm trying to print values of version and type. 
$data = {
    data => 'hello',
    complicated => {
 version => 1,                                                 
type => 'struct',

               },
         req => 'Submit'
};

foreach (keys %$data ) 
{ 
 if (ref($data->{$_})) 
 {
  foreach (keys %{$data->{$_}}) 
  {
   print " $_ : ".$data->{$_}->{$_}."\n";
  }
 }
}

[download]
can any 1 help me with this .

Back to Seekers of Perl Wisdom