大佬教程收集整理的这篇文章主要介绍了在散列中添加值(Perl),大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
但是,当我运行这个时,我得到了
Undefined subroutIne &main::sum called at C:/Users/Clayton/workspace/main/Main.pl line 54,<$filehandle1> line 174.
我不确定我在哪里错了.我是Perl的新手.
编辑:我尝试使用只是运算符,但我得到错误
Use of uninitialized value in addition (+) at C:/Users/Clayton/workspace/main/Main.pl line 54,<$filehandle1> line 174.
我的哈希就像
核心价值
猫2
狗4
老鼠1
所以我正在尝试将所有值加起来,以便我可以取平均值.
编辑2:实际的修复是在我需要使我的$value_count = 0的评论中.这修复了一切.谢谢你们.我认为这是一个需要解决的重要问题,我认为这对其他人有用,所以我要离开它.
$value_count = $value_count + $words{$key}; # or $value_count += $words{$key};
实际上,你可以使用sum并避免循环.这是您应该使用的解决方案:
use List::Util 'sum'; my $value_count = sum values %words;
values函数返回散列值作为列表,并对列表求和.如果您不想对所有键求和,请使用哈希切片:
use List::Util 'sum'; my $value_count = sum @words{@keys};
以上是大佬教程为你收集整理的在散列中添加值(Perl)全部内容,希望文章能够帮你解决在散列中添加值(Perl)所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。