in reply to hash question

Works for me:

use strict;
use warnings;
use Data::Dump::Streamer;

my %hoh = (
    a => {a1 => {a11 => 1, a12 => 1,}, b1 => {b11 => 1, b12 => 1,}, c1
+ => 1,},
    b => {a2 => {a22 => 2, a22 => 2,}, b2 => {b22 => 2, b22 => 2,}, c2
+ => 2,},
    );

Dump (get ());


sub get {
    return $hoh{'a'};
}

[download]

Prints:

$HASH1 = {
           a1 => {
                   a11 => 1,
                   a12 => 1
                 },
           b1 => {
                   b11 => 1,
                   b12 => 1
                 },
           c1 => 1
         };

[download]

How about you show us your equivelent code that doesn't work?

Perl's payment curve coincides with its learning curve.

Replies are listed 'Best First'.
Re^2: hash question
by megaurav2002 (Monk) on Dec 12, 2008 at 00:57 UTC

    Thanks for the reply. Outside my application it worked for me too. So i realised problem is somewhere in the application. And then i found one of the subroutines was actually deleting these keys :)

    Gaurav
    "Wisdom begins in wonder" - Socrates, philosopher
[reply]

      Putting together a runnable test case that demonstrates the problem often has that effect. It's very like talking to the Teddy bear.

      Perl's payment curve coincides with its learning curve.
[reply]
        Ah. Perhaps we should ask the perl maintainers to add a --teddy-bear option to perl -d: 
        $ perl -d --teddy-bear buggy.pl

Loading DB routines from perl5db.pl version 1.4
Loading teddy-bear routines from perl5teddy.pl version 1.1
Editor support available.
Plush cuddly support available.

[Teddy: waits attentively]
  Tb<1> I'm not getting all the keys of my hash printed.
[Teddy: waits attentively]
  Tb<2>
...

        [download]
        Or would users prefer an --eliza mode? 
        Eliza: Hello. I am ELIZA. How can I help you?
  El<1> I'm not getting all the keys of my hash printed.
Eliza: Why do you say your hash printed? 
  El<2> What?  Wait, it didn't.
Eliza: Does that question interest you?
  El<3> No.  My hash keys interest me.  They're missing.
Eliza: Why do you say your hash keys interest you theyre missing? 
  El<4> ^C^C^C

        [download]
        On second thought, maybe the teddy bear idea was better.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom