У меня вопрос о том, как напечатать хеш:
@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
что не так?