Re: Hash dereferencing problem

[Chas. Owens]

On Nov 13, 2007 12:55 PM,  <[EMAIL PROTECTED]> wrote:
> Folks,
>
> I am having a problem dereferencing a hash and am hoping somebody can
> assist.  I am getting the error:
>
>                 Can't use string ("napMD_ProgressCode") as a HASH ref
> while "strict refs" in use
snip
> my %napMD_ProgressCode = (
snip
> drawInputRowControlled('napMD_ProgressCode');
snip

That is because you are passing a scalar containing the string
"napMD_ProgressCode" instead of a reference to the hash.  Try

drawInputRowControlled(\$napMD_ProgressCode)

Also, it is wasteful to copy the entire hash into a new variable
(unless you want to make changes that should not be reflected in the
original hash).  Just use the arrow operator:

sub drawInputRowControlled{
       my $ControlList = shift;

       for my $key (sort keys %$ControlList) {
               print qq(
                       <input type="checkbox"
                       name='status'

value="$ControlList->{$key}{Code}">$ControlList->{$key}{Name}</option><br>
               );
  }
}

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/