我正在尝试增加哈希值,但我的输出混乱.我将一个数组,散列和标量值数组传递给函数.
下面的代码打算首先看看它是否是一个哈希值,如果是这样的话,它会通过值并递增它们.
elsif (ref($_) eq "HASH"){ foreach $s (values %{$_}){ $s++; } }
我正在传递以下哈希:
{ a => 1,b => 2,c => 3 },{ d => 4,e => 5 },
然而,当我打印或返回$s时,我会得到不同的输出,例如:
4 2 3 5 6
要么
2 4 3 6 5
或其他一些随机变化.我想要的是,显然,
2 3 4 5 6
我确信这很简单,但我在Perl方面不是很有经验.
解决方法
散列不是在Perl中订购的.如果要对值进行排序,请对它们进行排序:
#! /usr/bin/perl use warnings; use strict; use feature qw{ say }; my $ref = { a => 1,c => 3 }; $_++ for values %$ref; say join ' ',sort values %$ref; # By values. say join ' ',@$ref{ sort keys %$ref }; # By keys.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。