|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Frolcov 2:5020/175.2 27 Mar 2001 18:43:44
To : Michael Poliakov
Subject : Re: Многомерные хэши
--------------------------------------------------------------------------------
MP> Как построить структуру:
$data->> {$rowkey1}...{$rowkeyN1}{$colkey1}...{$colkeyN2}{$datakey}
MP> при произвольных N1, N2?
MP> foreach - что? push или еще что - как? У меня от таких тензоров уже
MP> шарики за ролики заезжают :-/
sub rethref{
my($k,$v,$n)=@_;
return {$k=>$v} if $n==0;
return { $k=>rethref($k, $v, $n-1) };
}
$val=rethref("A","B", 5);
что там у тебя для $k и для $v должно стоять - додумай по мотивам. Все,
по-моему, просто как мычание.
--- ifmail v.2.15
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
