blob: ef3a82255b35995440482b31b426b7051c1c92b0 (
plain)
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
|
# fnparydl.awk --- check that deleting works with arrays
# that are parameters.
#
# Tue Jul 11 14:20:58 EDT 2000
function delit(a, k)
{
print "BEFORE LOOP"
for (k in a) {
print "DELETING KEY", k
delete a[k]
}
print "AFTER LOOP"
}
BEGIN {
for (i = 1 ; i <= 7; i++) {
q[i] = sprintf("element %d", i)
x[i] = i
y[i] = q[i]
}
# adump(q)
delit(q)
# for (i in q)
# delete q[i]
j = 0;
for (i in q)
j++
print j, "elements still in q[]"
# adump(q)
}
|
