Альтернативно

moko 14.04.2010 02:42

Если хеши заполняются вложенными циклами, как в твоем примере, то чуть эффективнее будет так:

@main[]
  $h[
    ^for[i](1;2){
      $v1[level1_$i]
      $.$v1[
        ^for[k](1;3){
          $v2[level2_$k]
          $.$v2[
            ^for[n](1;4){
              $v3[level3_$n]
              $.$v3[value-${i}-${k}-${n}]
            }
          ]
        }
      ]
    }
  ]
  ^printHash[$h]

---