在Perl中获取哈希大小

您可以通过使用键或值上的标量上下文来获取大小-即Perl中哈希中的元素数量。简单地说，首先您必须获得一个包含键或值的数组，然后可以按如下所示获取数组的大小-

示例

#!/usr/bin/perl
%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);
@keys = keys %data;
$size = @keys;
print "1 - Hash size: is $size\n";
@values = values %data;
$size = @values;
print "2 - Hash size: is $size\n";

输出结果

这将产生以下结果-

1 - Hash size: is 3
2 - Hash size: is 3