只需要申明标量环境就可以了，据个例子如下
#!/usr/bin/perl -w
use strict;
use warnings;
my %hash=map {$_=>$_+1} (1..6);
print scalar keys %hash;
---------------------------
输出结果
6
一个傻办法
my $count;
foreach (keys %hash)
{ $count += 1; }
就可以了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024