61 lines
749 B
Awk
61 lines
749 B
Awk
#!/usr/local/bin/gawk -f
|
|
BEGIN {
|
|
process()
|
|
}
|
|
|
|
function process(aa,a) {
|
|
delete aa
|
|
}
|
|
|
|
BEGIN {
|
|
for (i = 1; i < 10; i++)
|
|
a[i] = i;
|
|
|
|
print "first loop"
|
|
for (i in a)
|
|
print a[i]
|
|
|
|
delete a
|
|
|
|
print "second loop"
|
|
for (i in a)
|
|
print a[i]
|
|
|
|
for (i = 1; i < 10; i++)
|
|
a[i] = i;
|
|
|
|
print "third loop"
|
|
for (i in a)
|
|
print a[i]
|
|
|
|
print "call func"
|
|
delit(a)
|
|
|
|
print "fourth loop"
|
|
for (i in a)
|
|
print a[i]
|
|
|
|
stressit()
|
|
}
|
|
|
|
function delit(arr)
|
|
{
|
|
delete arr
|
|
}
|
|
|
|
function stressit( array, i)
|
|
{
|
|
delete array
|
|
array[4] = 4
|
|
array[5] = 5
|
|
delete array[5]
|
|
print "You should just see: 4 4"
|
|
for (i in array)
|
|
print i, array[i]
|
|
delete array
|
|
print "You should see nothing between this line"
|
|
for (i in array)
|
|
print i, array[i]
|
|
print "And this one"
|
|
}
|