Programmer 7500/MAX_PROGRAMMERS.iso/CLIPPER/MISC/AWK210.ZIP/SPLIT.AWK

AWK Script | 1988-03-02 | 163 b | 6 lines

BEGIN {
        xsplit("i j k", a); for (i in a) print i, a[i]
        xsplit("x y z", a); for (i in a) print i, a[i]
}
function xsplit(x, y) { split(x, y) }