|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artem Chuprina 2:5020/400 28 Mar 2001 15:33:15 To : polk@nino.ru Subject : Re: Многомерные хэши -------------------------------------------------------------------------------- Здравствуй, Michael Poliakov. В твоём письме от Wed, 28 Mar 2001 11:19:01 +0000 (UTC) написано: pnr> On Tue, 27 Mar 2001 14:40:50 +0000 (UTC), ran@ran.pp.ru (Artem Chuprina) pnr> wrote: >>А ты все-таки поостынь и напиши человеческим языком, что означает "построить >>структуру $data->{$rowkey1}...{$rowkeyN1}{$colkey1}...{$colkeyN2}{$datakey}". >>Из чего (данные-то кто? N1 и N2, 'Арбузолитейный' и 'Плюшкин', или что-то >>еще?). А там, глядишь, и ответ автоматически получится... pnr> Хорошо. Бог с ним, с Арбузолитейным. Пусть есть некие данные, которые я pnr> хочу запихать в хэш размерности N1+N2+1. Как его создать pnr> (инициализировать?), если даны размерности N1 и N2? Какой процедурой? pnr> Может, как-то рекуррентно? pnr> Вот пусть желаемая структура задается так: pnr> @row_field_names = ('rf1', 'rf2', .. 'rfN1'); # размерность N1 pnr> @col_field_names = ('cf1', 'cf2', .. 'cfN2'); # размерность N2 pnr> @data_field_names = ('df1', 'df2', .. 'dfN3'); # размерность N3, но это pnr> неважно # data_field_names будут определять значение последнего ключа pnr> хэша pnr> $headers = {'ROWS' => \@row_field_names, pnr> 'COLS' => \@col_field_names, pnr> 'DATA' => \@data_field_names pnr> }; pnr> Как строить (хотя бы пустой, заглушку) хэш размерности N1+N2+1 ? ОHО ТЕБЕ ЗАЧЕМ? Пустой-то? Вот появилось у тебя данное с индексом {$a1}...{$aN1}{$b1}...{$bN2}{$c1}...{$cN3} - ты пишешь $hash{$a1}...{$aN1}{$b1}...{$bN2}{$c1}...{$cN3} = $value; Все промежуточные структуры оно создаст само. Или ты имеешь в виду $hash{$row}{$col}{$data} = $value;? Hу так точно так же. -- Artem Chuprina E-mail: ran@ran.pp.ru Programmer FIDO: 2:5020/371.32 Memonet Ltd. Phone: +7-095-284-1356 --- ifmail v.2.15dev5 * Origin: NTV Internet (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/16483ff7c1f63.html, оценка из 5, голосов 10
|