|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/5609.69 27 Mar 2001 09:58:31
To : Michael Poliakov
Subject : Re: Многомерные хэши
--------------------------------------------------------------------------------
Юґullo Michael!
MP> Hе, наверное, вопрос я задал некорректно.
MP> Как построить структуру:
MP> $data->{$rowkey1}...{$rowkeyN1}{$colkey1}...{$colkeyN2}{$datakey}
MP> при произвольных N1, N2?
MP> foreach - что? push или еще что - как? У меня от таких тензоров уже
MP> шарики за ролики заезжают :-/
Проще всего так:
$h{'2000/01/01','kaaboom','A.1'} = 1001;
$h{'2000/01/01','kaaboom','B.7'} = 667;
$h{'2000/02/01','yahoo','A.1'} = 33;
while(($key, $val) = each %h) {
print "$key = $val\n";
}
print "\n";
for(keys %h) {
print "$_ = $h{$_}\n" if /$;A\.1$/;
}
Hо, в принципе, если ключей слишком много, то можно почитать про хеши хешей.
В последнем случае рекомендуется получасовая медитация на тему "а сколько
памяти оно будет жрать?"
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/5609.69 ДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
---
* Origin: Our governor can beat up your governor! (2:5020/5609.69)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
