Mega Code Archive

 

Categories / Perl / Hash

 

The delete operator removes a keyvalue pair from an associative array

#!/usr/bin/perl -w # Deleting hash elements. $hash{"Name"} = "A"; $hash{"Address"} = "B"; $hash{"City"} = "C"; print ' Print keys before deletion.'; @key_names = keys(%hash); print "Key names are: @key_names\n\n"; print 'Delete item and print.'; delete $hash{"Address"}; print ' Print keys after .'; @key_names = keys(%hash); print "Key names now: @key_names\n\n";