1echo T.delete: misc tests of array deletion 2 3awk=${awk-../a.out} 4 5echo '1 2 3 4 61 2 3 71 8' >foo0 9echo '4 3 0 103 2 0 111 0 0 120 0 0' >foo2 13$awk ' 14{ n = split($0, x) 15 delete x[1] 16 n1 = 0; for (i in x) n1++ 17 delete x; 18 n2 = 0; for (i in x) n2++ 19 print n, n1, n2 20}' foo0 >foo1 21diff foo1 foo2 || echo 'BAD: T.delete (1)' 22