Re: [vox-tech] Perl: Checking if a hash exists and is true

[Micah Cowan <micah@cowanbox.cMAPSom>]

On Mon, Jul 09, 2001 at 05:46:54PM -0500, Jay Strauss wrote:
> Too bad, but as far as barewords and extra "$" go (Micah, I don't want to
> say you're wrong :-)), but a little example:
> 
> [jdedev]/home/oracle/bin> cat tmp
> #!/opt/perl/bin/perl -w
> 
> use strict;
> 
> my $help = 0;
> my %hash = (help=>\$help);
> my $refHash = \%hash;
> 
> print "w/o \{\}\t: $refHash->{help}\n";
> print "w \{\}\t: ${$refHash->{help}}\n";
> 
> [jdedev]/home/oracle/bin> ./tmp
> w/o {}  : SCALAR(0x400493d0)
> w {}    : 0
> 
> Jay

Oh; sorry.  Didn't realize that the value of $refHash->{'help'} was a
scalar (brainfart).  Of course, you're correct with the ${}.  However,
the statement about the bareword still stands.

Micah