File: 33_hashes.pir

package info (click to toggle)
parrot 6.6.0-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 25,164 kB
  • ctags: 16,050
  • sloc: ansic: 110,715; perl: 94,382; yacc: 1,911; lex: 1,529; lisp: 1,163; cpp: 782; python: 646; ruby: 335; sh: 140; makefile: 129; cs: 49; asm: 30
file content (54 lines) | stat: -rw-r--r-- 1,240 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
# Copyright (C) 2007-2012, Parrot Foundation.

=pod

=head1 DESCRIPTION

A tutorial lesson about Parrot's associative arrays.

=head1 ASSOCIATIVE ARRAYS

Associative arrays, also known in some places as "dictionaries" or
"hashes" are like ordered arrays except they are indexed by strings
instead of integers. Parrot has a dedicated Hash PMC, and a number of
other PMCs that implement the associative array interface as well.

Associative arryas are indexed using C<[ ]> square brackets with a
string inside them.

Ordered arrays are often homogeneous structures where all elements in
the array are of the same type. This is why Parrot has types like
"FixedIntegerArray" and "ResizableStringArray", which only contain
integers or strings respectively. Associative arrays are often
heterogeneous, where each element may be a different type.

=cut

.sub main :main

    .local pmc myhash
    myhash = new ['Hash']

    myhash['foo'] = 5
    myhash['bar'] = "Hello"

    $I0 = myhash['foo']
    print $I0
    print "\n"

    $P0 = myhash['foo']
    $S0 = typeof $P0
    say $S0

    $P1 = myhash['bar']
    $S1 = typeof $P1
    say $S1

.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: