File: typeof4.awk

package info (click to toggle)
gawk 1%3A4.2.1%2Bdfsg-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 20,880 kB
  • sloc: ansic: 50,919; awk: 12,043; yacc: 6,393; sh: 5,675; makefile: 2,856; sed: 128; csh: 6
file content (13 lines) | stat: -rw-r--r-- 319 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
BEGIN{ a["x"]["y"]["z"]="scalar" ; walk_array(a, "a")}
function walk_array(arr, name, i,	r)
{
	for (i in arr) {
		r = typeof(arr[i])
#		printf("typeof(%s[%s]) = %s\n", name, i, r) > "/dev/stderr"
		if (r == "array") {
			walk_array(arr[i], name "[" i "]")
		} else {
			printf "%s[%s] = %s\n", name, i, arr[i]
		}
	}
}