Yes, you don't want to print $hash{$hash_key}...instead, notice that I put a
backslash before the first $
You just want to print $hash_key. If you escape the first $ then it will
print out something like
$hash{key1} is blank!
----- Original Message -----
From: "Daniel Falkenberg" <[EMAIL PROTECTED]>
To: "Tanton Gibbs" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, April 10, 2002 2:55 AM
Subject: Re: Checking if a hash has blank values.
> Tanton,
>
> I must be so close! I just can't get it to print the key value that
> contains a null value. I think it is actually printing the value i.e
> $hash{$hash_key} which is the value? I want it to print the key!
>
> Does this sound correct to you?
>
> Regards,
>
> Dan
>
> > foreach my $hash_key (keys %hash) {
> > if( $hash{$hash_key} eq "" ) {
> > print "\$hash{$hash_key} contains a null value!";
> > }
> > }
>
>
>
> On Wed, 2002-04-10 at 16:07, Tanton Gibbs wrote:
> > Sure, you just about have it, but don't use
> > $hash{$_} == ""
> > as someone else said, just use
> > $hash{$_} eq ""
> >
> > Also, if you name your iterator $hash_key, then don't use $_, use
> > $hash_key...so the final code would be
> >
> > foreach my $hash_key (keys %hash) {
> > if( $hash{$hash_key} eq "" ) {
> > print "\$hash{$hash_key} contains a null value!";
> > }
> > }
> > ----- Original Message -----
> > From: "Daniel Falkenberg" <[EMAIL PROTECTED]>
> > To: "Tanton Gibbs" <[EMAIL PROTECTED]>
> > Cc: <[EMAIL PROTECTED]>
> > Sent: Wednesday, April 10, 2002 2:36 AM
> > Subject: Re: Checking if a hash has blank values.
> >
> >
> > > Hi Tanton,
> > >
> > > Yes, but what I really want it to do is go though all the values of
the
> > > hash and if any of them contain null values then print that out and
tell
> > > me whick key(s) value(s) contains null values? Is this possible?
> > >
> > > Therefore...
> > >
> > > foreach $hash_key (keys %hash) {
> > > if ($hash{$_} == "" || $hash{$_} eq "") {
> > > print $hash{$hash_key}, "Contains a null value!\n";
> > > else {
> > > print "It worked!\n";
> > > }
> > > }
> > >
> > > Thx,
> > >
> > > Dan
> > >
> > >
> > > On Wed, 2002-04-10 at 15:52, Tanton Gibbs wrote:
> > > > If you want to test all of them, you can say
> > > >
> > > > $hash{$_} eq "" and die "Empty hash!" foreach( keys %hash );
> > > > ----- Original Message -----
> > > > From: "Eric Beaudoin" <[EMAIL PROTECTED]>
> > > > To: "Daniel Falkenberg" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> > > > Sent: Wednesday, April 10, 2002 2:22 AM
> > > > Subject: Re: Checking if a hash has blank values.
> > > >
> > > >
> > > > > At 02:08 2002.04.10, you wrote:
> > > > > >Hey all,
> > > > > >
> > > > > >I have created a hash that looks similar to the following...
> > > > > >
> > > > > >%hash (
> > > > > > 'test1' => $test1,
> > > > > > 'test2' => $test2,
> > > > > > 'test3' => $test3,
> > > > > >);
> > > > > >
> > > > > >Now is it possible to have a little piece of code check the
values of
> > > > > >that hash and see if their are any blank fields?
> > > > > >
> > > > > >Something like...
> > > > > >
> > > > > >if ($hash($_) eq "" || $hash($_) == ""}
> > > > > > print "These hash keys $hash($_) did not contain any data!\n";
> > > > > >} else {
> > > > > > print "It worked!";
> > > > > >}
> > > > > >
> > > > > >Regards,
> > > > > >
> > > > > >Dan
> > > > >
> > > > > Hashes use the {}, not the ().
> > > > >
> > > > > $hash{$_} == "" is not right. == is for numerical comparaison so
perl
> > > > automagicaly transform each side to a number before resolving the
==.
> > > > >
> > > > > This means that "a" == "b" returns true and "This is a value" ==
""
> > also
> > > > returns true. Not what you want I beleive.
> > > > >
> > > > > Your first test ($hash{$_} eq "") should work like you intend it.
> > > > >
> > > > > You can be lazy and test like this
> > > > >
> > > > > if($hash{$_}) then { print "There is a value\n" }
> > > > >
> > > > > if you know in advance that none of your value can be the number
or
> > the
> > > > string "0".
> > > > >
> > > > > Hope this helps.
> > > > >
> > > > >
> > > > > ----------------------------------------------------------
> > > > > Éric Beaudoin <mailto:[EMAIL PROTECTED]>
> > > > >
> > > > >
> > > > > --
> > > > > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > > > > For additional commands, e-mail: [EMAIL PROTECTED]
> > > > >
> > > >
> > > --
> > > ==============================
> > > VINTEK CONSULTING PTY LTD
> > > (ACN 088 825 209)
> > > Email: [EMAIL PROTECTED]
> > > Web: http://www.vintek.net
> > > Tel: (08) 8523 5035
> > > Fax: (08) 8523 2104
> > > Snail: P.O. Box 312
> > > Gawler SA 5118
> > > ==============================
> > >
> >
> --
> ==============================
> VINTEK CONSULTING PTY LTD
> (ACN 088 825 209)
> Email: [EMAIL PROTECTED]
> Web: http://www.vintek.net
> Tel: (08) 8523 5035
> Fax: (08) 8523 2104
> Snail: P.O. Box 312
> Gawler SA 5118
> ==============================
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
