On Mon, Jul 09, 2001 at 07:38:41PM -0500, Jay Strauss wrote:
> strict should complain if it was a bareword, right???
Hm... Well, I /thought/ so, although now that I've tried it, I got no
complaints at all. Strange... I could swear it used to bug me about
that... Oh well. :-/
Micah
>
> ----- Original Message -----
> From: "Micah Cowan" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Monday, July 09, 2001 7:18 PM
> Subject: Re: [vox-tech] Perl: Checking if a hash exists and is true
>
>
> > 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
