Ответ

Maxx 11.07.2008 13:00 / 11.07.2008 13:09

@main[]
$level[^hash::create[
   $.level1[
      $.level2[
         $.var1[var1]
         $.var2[var2]
      ]
   ]
  ]
]
$hash_level[level1.level2.var1]

$hRes[^selectHash[$level;$hash_level]]
^rem{в данном случае в $hRes будет var1
если $hash_level[level1.level2] то в $hRes будет хэш с двумя ключами $.var1[var1] и $.var2[var2]
}

@selectHash[h;sKey][tKeys]
$result[^hash::create[$h]]
$tKeys[^sKey.split[.;lv][key]]
^if($tKeys){
^tKeys.menu{
	$result[$result.[$tKeys.key]]
}}