File: aadelete1.awk

package info (click to toggle)
gawk 1%3A4.0.1%2Bdfsg-2.1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 10,944 kB
  • sloc: ansic: 38,137; awk: 6,654; yacc: 6,066; sh: 4,807; makefile: 1,802; sed: 112
file content (19 lines) | stat: -rw-r--r-- 264 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
BEGIN {
	a[1][1] = 11
	a[1][2] = 12
	a[2] = 2
	delete a[1][1]
	f(a, a[1])
	print a[1][1]
	print length(a), length(a[1])
	delete a
	print length(a), length(a[1]), length(a)
	a[1][1] = 11
}

function f(c, b) {
	delete b
	b[1] = 1
	print c[1][1], b[1]
	delete c[2]
}