troubleshooting Question

Hash

Avatar of gauravflame
gauravflame asked on
Perl
1 Comment1 Solution230 ViewsLast Modified:
%HoH = (
        flintstones => {
                lead      => "fred",
                pal       => "barney",
              Mount1 => {
                             'A'  => '1',
                          },


              main  => "Common",

        },

        mainoutside => "Commonoutside",    # like to display this part of Hash

 );

 foreach $family ( keys %HoH ) {

     print "$family: { ";
     for $role( keys %{ $HoH{$family} } ) {
         if( ref $HoH{$family}{$role} eq 'HASH' ){
         print "$role: { ";
           for $role1 ( keys %{ $HoH{$family}{$role} } ) {
             print "$role1=$HoH{$family}{$role}{$role1} ";
           }
         print "} ";
        }
        elsif (ref $HoH{$family} eq 'SCALAR')   # Added this code to catch that value
        {

        print "\n $family=$HoH{$family}\n";

        }
        else{
           print "$role=$HoH{$family}{$role} ";
        }
   }
      print "}\n";
   }

==============================================
output ::
mainoutside: { }  # Wrong output
flintstones: { lead=fred Mount1: { A=1 } pal=barney main=Common }

Question :: How to read ""  mainoutside => "Commonoutside",     "" of hash ?


Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 1 Comment.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros