Finding the Size of a Hash in Perl
How to Find the Size of a Hash?
How to check the size of hash based on keys and values?
Explanation
Size of a Hash can be found by checking the keys of an hash structure. As the hash can be seperated by key and values using "$key", $value".An Hash element can be without a value but should have a key.
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
%name = ('Tom',26,'Peter',51,'Jones', 23, 'John', 43, 'Mark',,);
print "My hash size is:".keys(%name); Result :
My hash size is:5
In the above example the size of the hash structure is checked based on the keys, so it returns "5". Even the key "Mark" has no values.
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
%name = ('Tom',26,'Peter',51,'Jones', 23, 'John', 43, 'Mark',,);
$count = scalar grep defined($_),values %name;
print "Size of my Hash is:",$count; Result :
Size of my Hash is:4
In the above example the size of the hash structure is determined based on the values,so it returns "4".
Example :
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
%name = ('Tom',26,'Peter',51,'Jones', 23, 'John', 43, 'Mark',,);
print "My hash size is:".keys(%name);
My hash size is:5
In the above example the size of the hash structure is checked based on the keys, so it returns "5". Even the key "Mark" has no values.
Example :
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
%name = ('Tom',26,'Peter',51,'Jones', 23, 'John', 43, 'Mark',,);
$count = scalar grep defined($_),values %name;
print "Size of my Hash is:",$count;
Size of my Hash is:4
In the above example the size of the hash structure is determined based on the values,so it returns "4".
