Hash Odds and Ends
Some operations on hashes aren't obvious if you're new to Perl. Because of the special nature of hashes, a couple of common operations require functions that aren't necessary for scalars and arrays.
Testing for Keys in a Hash
To test to see whether a key exists in a hash, for example, you might be tempted to try the following syntax:
if ( $Hash{keyval} ) { # WRONG, in this case
:
}
This example doesn't work, for a few reasons. First, this snippet doesn't test to see whether keyval is a key in a hash; it actually tests the value associated with the key keyval in the hash.
Does it work to test whether the key is defined, as in the following?
if ( defined $Hash{keyval} ) { # WRONG, again in this case
:
}
Again, this example doesn't quite work. This snippet still tests the data associated with the key keyval, and not whether the key exists. undef is a perfectly valid value to associate with a hash key, as in the following:
$Hash{keyval} = undef;
The preceding test of defined returns false because it doesn't test for the existence of a key in a hash; it tests the data associated with the key. So what's the right way? Perl has a special function just for this purpose; it's called exists. The exists function, shown here, tests for the presence of the hash key in the hash and returns true if it's there or false otherwise:
if ( exists $Hash{keyval} ) { # RIGHT!
:
}
Removing Keys from a Hash
The other operation that isn't obvious is removing a key from a hash. As you saw earlier, simply setting the hash element to undef doesn't work. To remove a single hash key, you can use the delete function, as follows:
delete $Hash{keyval};
To remove all the keys and values from a hash, simply reinitialize the hash to an empty list like this:
%Hash = ();
| 