blob: 61d1ba76e1269df750b2e6ddabe81267a0884f44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/bin/sh
AWK=../gawk
$AWK 'BEGIN { OFS = ORS = ""; for (j = 1; j <= 4; j++) for (i = 1; i <= 16; i++) print j}' > _rec.in
for i in 1 2 3 4 5
do
$AWK -f record.awk -vinfile='_rec.in' -e 'BEGIN {
reclen = 16
record(r, infile, reclen, "r+")
FIELDWIDTHS="8 4 4"
for (i = 1; i in r; i++) {
$0 = r[i]
print $1
}
delete r[1]
unbind_array(r)
print "--" }'
done
rm -f _rec.in
|
