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}; 
}