#!/bin/rcecho T.delete: misc tests of array deletion >[1=2] echo '1 2 3 41 2 31' >foo0echo '4 3 03 2 01 0 00 0 0' >foo2$awk '{ n = split($0, x) delete x[1] n1 = 0; for (i in x) n1++ delete x; n2 = 0; for (i in x) n2++ print n, n1, n2}' foo0 >foo1diff foo1 foo2 || echo 'BAD: T.delete: 1' >[1=2]
#!/bin/rc
echo T.delete: misc tests of array deletion >[1=2]
echo '1 2 3 4
1 2 3
1
' >foo0
echo '4 3 0
3 2 0
1 0 0
0 0 0' >foo2
$awk '
{ n = split($0, x)
delete x[1]
n1 = 0; for (i in x) n1++
delete x;
n2 = 0; for (i in x) n2++
print n, n1, n2
}' foo0 >foo1
diff foo1 foo2 || echo 'BAD: T.delete: 1' >[1=2]