|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artur Penttinen 2:5020/400 27 Mar 2001 16:54:15
To : Michael Poliakov
Subject : Re: Многомерные хэши
--------------------------------------------------------------------------------
Michael Poliakov <polk@nino.ru> wrote:
MP> Как построить многомерный хэш произвольной размерности N?
MP>
MP> Есть данные (из SQL, файла и т.п.) в виде массива хэшей.
MP>
MP> Для выборки (сводной таблицы) задается набор полей, скажем, типа
MP>
MP> $headers = {'ROWS' => ['Месяц', 'Цех'],
MP> 'COLS' => ['Работник', 'Изделие'],
MP> 'DATA' => ['Шт', 'Руб']
MP> };
MP>
MP> Как построить структуру типа
MP>
MP> $data->{'200101'}{'Арбузолитейный'}{'Плюшкин'}{'Дырки от бублика'}{'Шт'} =
MP> $data->10; {'200101'}{'Арбузолитейный'}{'Шишкин'}{'Вилки гнутые'}{'Руб'} =
MP> $data->2000;
MP>
MP> и т.д. в зависимости от размерности N?
MP>
MP> Если N = (1, 1, любое K) - понятно, уже сделано. Вопрос в том, как
MP> "нарастить" хэш произвольной размерности.
# perl -de0
DB<1> $data->{'200101'}{'Арбузолитейный'}{'Плюшкин'}{'Дырки от бублика'}{'Шт'}
= 10;
DB<2> $data->{'200101'}{'Арбузолитейный'}{'Шишкин'}{'Вилки гнутые'}{'Руб'} =
2000;
DB<3> p $data->{'200101'}{'Арбузолитейный'}{'Плюшкин'}{'Дырки от
бублика'}{'Шт'}
10
DB<4>
wbw,artur
--
- Мужик, самогон варишь? - Зачем? Так пью..
--- ifmail v.2.15dev5
* Origin: Sonera Ltd. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
