examples/tutorial/34_multikey.pir

   1 # Copyright (C) 2007-2009, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 Multi-Level Keys
   5
   6 Hashes and arrays can be combined in a number of ways to
   7 make interesting and complex data structures. A hash may
   8 contain an array PMC, which in turn can contain other arrays
   9 or hashes. In these cases, the keys for each level can be
  10 combined together to form a single unique key for a data
  11 element in the structure.
  12
  13 This technique works equally well for arrays-of-arrays,
  14 hashes-of-hashes, and combination structures as well.
  15
  16 =cut
  17
  18 .sub main :main
  19
  20     .local pmc myhash, innerarray
  21     myhash  = new ['Hash']
  22     innerarray = new ['ResizableIntegerArray']
  23
  24     $I0 = 2
  25     innerarray[2] = 42
  26     myhash["answer"] = innerarray
  27
  28     $I0 = myhash["answer";$I0]        # $i = $hash{"answer"}[2]
  29     print $I0
  30     print "\n"
  31
  32 .end
  33
  34 # Local Variables:
  35 #   mode: pir
  36 #   fill-column: 100
  37 # End:
  38 # vim: expandtab shiftwidth=4 ft=pir:
  39