增加散列Perl中的值

Question

我正在嘗試增加哈希值，但我的輸出混亂。 我將一個數組，散列和標量值數組傳遞給函數。

下面的代碼打算首先看看它是否是一個哈希值，如果是這樣的話，它會通過值並遞增它們。

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方面不是很有經驗。

Answer 1

散列不是在Perl中訂購的。 如果要對值進行排序，請對它們進行排序：

#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $ref = { a => 1, b => 2, c => 3 };

$_++ for values %$ref;
say join ' ', sort values %$ref;        # By values.
say join ' ', @$ref{ sort keys %$ref }; # By keys.