Re^7: how to identify a null hash value

As I said, Stevie's response did not work under "use strict". What finally worked is checking for the literal value of the string "HASH", which is what was printing out for me.

if (!($hh{'QUESTION_TEXT'} =~ /HASH\(/)) {

Now, I thought it printed out this value when you tried to print a hash reference that wasn't defined. I don't understand this, since the Dumper call shows the structure to be like the below:

{
'QUESTION_TEXT' => {},
'VARNAME' => 'OTHER STUFF',
},

So why does my code need to check for literally "HASH(" in the string, when the structure clearly has nothing in it?

Comment on Re^7: how to identify a null hash value

Replies are listed 'Best First'.
Re^8: how to identify a null hash value by aaron_baugher (Curate) on Jun 05, 2015 at 01:34 UTC
When a reference to a hash is evaluated in scalar context, as in your `if` statement, Perl stringifies it into something like HASH(0x80182c2b8), where the hexadecimal number is the memory location where the actual hash is stored. So by checking for /HASH\(/, you can see that it's a hash reference (or a string that looks like one), but that doesn't tell you whether the hash it points to has any keys and values. Your `if(!` test will only return true if the value for the 'QUESTION_TEXT' key isn't a hash reference at all. Try this to prove it: `$h = {}; # create reference to an empty hash print $h; # prints HASH(0xSOMETHING)` [download] It sounds like what's happening in your case is that $hh{QUESTION_TEXT} sometimes holds a hash reference, and sometimes holds a string. You can check for that first with the ref function. That will tell you whether the value is a hash reference, and if it is, then you can dereference it as stevieb and I both showed, to see if it's empty. Aaron B. Available for small or large Perl jobs and *nix system administration; see my home node.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^8: how to identify a null hash value
by aaron_baugher (Curate) on Jun 05, 2015 at 01:34 UTC

When a reference to a hash is evaluated in scalar context, as in your if statement, Perl stringifies it into something like HASH(0x80182c2b8), where the hexadecimal number is the memory location where the actual hash is stored. So by checking for /HASH\(/, you can see that it's a hash reference (or a string that looks like one), but that doesn't tell you whether the hash it points to has any keys and values. Your if(! test will only return true if the value for the 'QUESTION_TEXT' key isn't a hash reference at all. Try this to prove it:

$h = {};  # create reference to an empty hash
print $h; # prints HASH(0xSOMETHING)
[download]

It sounds like what's happening in your case is that $hh{QUESTION_TEXT} sometimes holds a hash reference, and sometimes holds a string. You can check for that first with the ref function. That will tell you whether the value is a hash reference, and if it is, then you can dereference it as stevieb and I both showed, to see if it's empty.

Aaron B.
Available for small or large Perl jobs and *nix system administration; see my home node.

[reply]
[d/l]
[select]