PERL - статьи


Хеши хешей - часть 2


Чтобы получить отдельное значение, хранящееся в хэше хэшей, надо явно указать набор

последовательных ключей:

%hash = (

fruits => {favorite => "apples",

'second favorite' => "oranges"},

vegetables => {favorite => "corn",

"second favorite' => "peas",

"least favorite' => "turnip"}

);

print $hash{fruits}{"second favorite'};

Используя стандартные приемы работы с обычными хэшами, можно

организовать цикл по элементам хэша хэшей:

%hash = (

fruits => {favorite => "apples",

'second favorite' => "oranges"},

vegetables => {favorite => "corn",

"second favorite' => "peas"}

);

for $food (keys %hash) {

print "$food:\n\t {";

for $key (keys %{$hash{$food}}) {

print "'$key1' => \"$hash{$food}{$key}\",";

}

print "}\n";

}

Чтобы сортировать записи хэш-таблицы по ключам, в заголовок цикла можно

включить операцию сортировки:

%hash = (

fruits => {favorite => "apples",

second => "oranges"},

vegetables => {favorite => "corn",

second => "peas"}

);

for $food (keys %hash) {

print "$food:\n\t {";

for $key (keys %{$hash{$food}}) {

print "'$key1' => \"$hash{$food}{$key}\",";

}

print "}\n";

}




- Начало -  - Назад -  - Вперед -