Занесение элемента в хэш
Проблема
Требуется добавить в хэш новый элемент.
Решение
Присвойте нужное значение в записи вида:
$ХЭШ {$КЛЮЧ} = $ЗНАЧЕНИЕ;
Комментарий
Процесс занесения данных в хэш весьма тривиален. В языках, где хэш не относится к встроенным
типам данных, приходится беспокоиться о переполнении, изменении размеров и коллизиях в хэш-таблицах.
В Perl обычное присваивание решает сразу все проблемы. Если ключ уже занят, то есть содержит
предыдущее значение, память автоматически освобождается (по аналогии с присваиванием скалярной переменной).
# Хэш %food_color определяется во введении
$food_color{Raspberry) = "pink";
print "Known foods:\n";
foreach $food (keys %food_color) {
print "$food\n";
}
Known foods:
Banana
Apple
Raspberry
Carrot
Lemon
Если в качестве ключа хэша используется неопределенная величина
undef,
она преобразуется в пустую строку "" (что сопровождается предупреждением при запуске с параметром -w).
Вероятно, неопределенный ключ undef — это не то, что вы хотели. С другой стороны, undef
является вполне допустимым значением в хэшах. Однако при выборке значения для ключа,
отсутствующего в хэше, вы также получите undef. Это означает, что для проверки существования ключа
$key в хэше %hash простая логическая проверка if ($hash{$key}) не подходит.
Присутствие ключа в хэше проверяется записью вида
exists($hash{$key});
определенность ассоциированного значения —
defined($hash{$key}),
а его истинность — if ($hash{$key})
Во внутренних алгоритмах хэширования Perl перестановки строки попадают на одну и ту
же позицию. Если в ключах хэша многократно встречаются перестановки одной строки
(скажем, "spare" и "craps"), быстродействие хэша заметно падает. На практике это происходит редко.
См. также
Proverte kod v komentariyah gde pro list tam oshibki detskie
Оставить комментарий:
|
|