我正在尝试增加哈希值,但输出结果令人困惑。我将一个由数组、哈希和标量值组成的数组传递到函数中。
下面的代码首先检查是否为哈希,如果是,则遍历其值并将其增加。
下面的代码首先检查是否为哈希,如果是,则遍历其值并将其增加。
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方面经验不够丰富。