in reply to help on reference to hash

You seem to want this:

my %my_tcldefs = %{$cliParms->{'tclDefs'}};

[download]

Your Data::Dumper dump would be easier to understand if you invoked it like this:

print Dumper \%cliParms;

[download]

Then the output would be something like this:

$VAR1 = {
          'tcl_defs' => {
            my_var1 => 'a',
            my_var2 => 'b'
          }
        };

[download]

...which makes it more obvious that 'tcl_defs' is a key with a value that consists of a reference to another anonymous hash.


Dave

Replies are listed 'Best First'.
Re^2: help on reference to hash
by AnomalousMonk (Archbishop) on Jun 21, 2014 at 10:51 UTC
    my %my_tcldefs = %{$cliParms->{'tclDefs'}};

    The expression  $cliParms->{'tclDefs'} treats  $cliParms as a hash reference rather than as a hash as shown on the OPed code. Fixing that and the key name tyop (and using Dumper properly :) gives: 

    c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my %cliParms = (
   tclDefs => {
     my_var1 => 'a',
     my_var2 => 'b'
     },
   );
 print Dumper \%cliParms;
 ;;
 my %my_tcldefs = %{ $cliParms{tclDefs} };
 print Dumper \%my_tcldefs;
"
$VAR1 = {
          'tclDefs' => {
                         'my_var2' => 'b',
                         'my_var1' => 'a'
                       }
        };

$VAR1 = {
          'my_var2' => 'b',
          'my_var1' => 'a'
        };

    [download]

    Update: skyworld_chen: The expression  $cliParms->{'tclDefs'} assumes the existence of a scalar  $cliParms that has been assigned a hash reference, which is evidently not the case in your code. Had you enabled warnings and, in particular, strictures (see strict), you might have had "more guidance" from Perl itself in the form of a "Global symbol "$cliParms" requires explicit package name ..." message (followed by the failure of the code to compile).

[reply]
[d/l]
[select]

      Hi

      this works, thanks very much. I'm sure I misunderstood the reference, hash etc. Is there any recommended pages on explaining these? thanks.

[reply]

        perlreftut is a good place to start to learn about Perl references. perldsc is good for nested data structures.

[reply]
Re^2: help on reference to hash
by skyworld_chen (Acolyte) on Jun 21, 2014 at 08:36 UTC

    Hi Dave,

    thanks for your kind reply. I have tried the code, but it seems I have some problem on this piece of code:

    my %my_tcldefs = %{$cliParms->{'tclDefs'}};

    there is no value passed to %my_tcldefs and %my_tcldefs is empty. Could you please give me more guidance? thanks very much!

[reply]
[d/l]

      That's because it should be tcl_defs, not tclDefs: 

      my %my_tcldefs = %{$cliParms->{'tcl_defs'}};

      [download]

      EDIT: for the benefit of later readers and to avoid confusion, when I wrote this reply, the original question (since edited, apparently) indeed said tcl_defs.

[reply]
[d/l]

        Hi Dave,

        that is not the reason. Original design is tclDefs and I'm sure I matched the name in original reference. I guess there maybe other reasons, but I can't find it. thanks.

[reply]

In Section Seekers of Perl Wisdom