Name	Size	Mode	Actions
alarm.awk	2369	0644	editdlrm
anagram.awk	1358	0644	editdlrm
awksed.awk	515	0644	editdlrm
cut.awk	3698	0644	editdlrm
dupword.awk	507	0644	editdlrm
egrep.awk	1954	0644	editdlrm
extract.awk	1883	0644	editdlrm
guide.awk	165	0644	editdlrm
histsort.awk	283	0644	editdlrm
id.awk	1249	0644	editdlrm
igawk.sh	3189	0644	editdlrm
indirectcall.awk	1957	0644	editdlrm
labels.awk	1014	0644	editdlrm
pi.awk	341	0644	editdlrm
split.awk	1198	0644	editdlrm
tee.awk	770	0644	editdlrm
testbits.awk	736	0644	editdlrm
translate.awk	1182	0644	editdlrm
uniq.awk	2700	0644	editdlrm
wc.awk	1480	0644	editdlrm
wordfreq.awk	347	0644	editdlrm

# split.awk --- do split in awk # # Requires ord() and chr() library functions # # Arnold Robbins, arnold@skeeve.com, Public Domain # May 1993 # Revised slightly, May 2014 # usage: split [-count] [file] [outname] BEGIN { outfile = "x" # default count = 1000 if (ARGC > 4) usage() i = 1 if (i in ARGV && ARGV[i] ~ /^-[[:digit:]]+$/) { count = -ARGV[i] ARGV[i] = "" i++ } # test argv in case reading from stdin instead of file if (i in ARGV) i++ # skip datafile name if (i in ARGV) { outfile = ARGV[i] ARGV[i] = "" } s1 = s2 = "a" out = (outfile s1 s2) } { if (++tcount > count) { close(out) if (s2 == "z") { if (s1 == "z") { printf("split: %s is too large to split\n", FILENAME) > "/dev/stderr" exit 1 } s1 = chr(ord(s1) + 1) s2 = "a" } else s2 = chr(ord(s2) + 1) out = (outfile s1 s2) tcount = 1 } print > out } function usage() { print("usage: split [-num] [file] [outname]") > "/dev/stderr" exit 1 }