perl - 访问和打印数组的哈希

Question

我有一个关于如何打印哈希的问题：

@language(1,2,3);
for my $i (0 .. $#language)
{
  $statement = $db->selectall_arrayref(
    "select word from words
    left outer join language
    on words.languageId = language.languageId
    where words.languageId = $language;"
  );
  %words=((@language[$language])=> {@$statement});
}
return %words;

如何帮助打印出哈希

我试过这个：

foreach my $key(keys %newwordsList)
{
    print "Dozzzz: " . $key . "\n";

    for my $ind(0 .. @{$newwordsList{$key}}-1){
        print $newwordsList{$key}[$ind] . "\n";
    }
} 

但我什么也得不到。

我有一个问题：哈希是否是顺序顺序我的意思是$key，因为我尝试打印$keys 它应该打印123但它打印出来132

怎么了？

Answer 1

哈希表不保留插入顺序。您将需要使用不同的数据结构，也许是 Tie::IxHash。