awk mutliarrays

multiarray.awk

#
# multi-dimension arrys
# 
# pprint() function - print arbtrary objects
#

function ps(n)
{
	for(i=1;i<=n;i++)
		printf(" ")
}

function walk_array(arr, name, i)
{
	for (i in arr) {
		if (isarray(arr[i]))
			walk_array(arr[i], (name "[" i "]"))
		else
			printf("%s[%s] = %s\n", name, i, arr[i])
	}
}

function pprint(a, prefix, depth) 
{
	if(!isarray(a)) {
		print ps(depth) prefix " = " a
		return
	}
	for(i in a) {
		pprint(a[i], prefix "[" i "]", depth+1)
	}
}

function setarray(a, idx, b) 
{
	if(isarray(b))
		for(i in b)
			if(isarray(b[i]))
				setarray(a[idx], idx, b[i])
			else
				a[idx][i] = b[i]
}
BEGIN {
	a[1][1] = "a11"
	a[1][2] = "a12"
	a[2] = "a2"
	b[1] = "b1"
	b[2] = "b2"
	c[1] = "c1"
	c[2] = "c2"
	setarray(b, 3, c)
	setarray(a, 3, b)
	pprint(a, "a")
	pprint(a[1])
	pprint(PROCINFO, "PROCINFO")
}