NetBSD/gnu/dist/gawk/test/asorti.awk
wiz 06c09073b3 Initial import of gawk-3.1.3.
Seven releases since the last import, so the ChangeLog is quite big;
please refer to the NEWS file included in the import for details.
Among others, this also addresses PR 23054.
2003-10-06 15:55:26 +00:00

28 lines
355 B
Awk

function init(a)
{
delete a
a["aardvark"] = 1
a["animal"] = 2
a["zebra"] = 3
a["zoo"] = 4
a["Iguana"] = 5
a["Alligator"] = 6
a["Nouns"] = 7
a["people"] = 8
}
BEGIN {
for (IGNORECASE = 0; IGNORECASE < 2; IGNORECASE++) {
init(a)
n = asorti(a)
for (i = 1; i <= n; i++)
printf("a[%d] = \"%s\"\n", i, a[i])
print "============"
}
}