Perl是否以相反的顺序打印数组元素？

Question

我很惊讶在Perl

以下哈希阵列

#!/usr/bin/perl 

print "content-type: text/html \n\n"; 

# DEFINE A HASH 
%coins = ("Quarter" , 25, 
      "Dime" , 10, 
      "Nickel", 5); 

# LOOP THROUGH IT 
while (($key, $value) = each(%coins)){ 
    print $key.", ".$value."<br />"; 
} 

产生以下输出

Nickel, 5 
Dime, 10 
Quarter, 25 

我知道Perl有通过索引使用负数访问最后元素的能力，但在这里我们没有使用负数作为索引，为什么它会以相反的顺序打印哈希数组的内容？

Answer 1

这不是一个数组，这是一个散列。这意味着事物内部存储为密钥的哈希值，而不是密钥的顺序。没有办法让他们回到他们添加的顺序。如果你想要他们在按键顺序，你需要

for my $key (sort keys %coins) 
{ 
    print $key, $coins{$key}; 
}