Gecko [ oric.aiou.edu.pk ]

Name	Size	Permission
alarm.awk	2.31 KB	-rw-r--r--
anagram.awk	1.33 KB	-rw-r--r--
awksed.awk	515 B	-rw-r--r--
cut.awk	3.61 KB	-rw-r--r--
dupword.awk	507 B	-rw-r--r--
egrep.awk	1.91 KB	-rw-r--r--
extract.awk	1.84 KB	-rw-r--r--
guide.awk	165 B	-rw-r--r--
histsort.awk	283 B	-rw-r--r--
id.awk	1.22 KB	-rw-r--r--
igawk.sh	3.11 KB	-rw-r--r--
indirectcall.awk	1.91 KB	-rw-r--r--
labels.awk	1014 B	-rw-r--r--
pi.awk	341 B	-rw-r--r--
split.awk	1.17 KB	-rw-r--r--
tee.awk	770 B	-rw-r--r--
testbits.awk	736 B	-rw-r--r--
translate.awk	1.15 KB	-rw-r--r--
uniq.awk	2.64 KB	-rw-r--r--
wc.awk	1.45 KB	-rw-r--r--
wordfreq.awk	347 B	-rw-r--r--

Name

Size

Permission

Action

alarm.awk

2.31 KB

-rw-r--r--

anagram.awk

1.33 KB

-rw-r--r--

awksed.awk

515 B

-rw-r--r--

cut.awk

3.61 KB

-rw-r--r--

dupword.awk

507 B

-rw-r--r--

egrep.awk

1.91 KB

-rw-r--r--

extract.awk

1.84 KB

-rw-r--r--

guide.awk

165 B

-rw-r--r--

histsort.awk

283 B

-rw-r--r--

id.awk

1.22 KB

-rw-r--r--

igawk.sh

3.11 KB

-rw-r--r--

indirectcall.awk

1.91 KB

-rw-r--r--

labels.awk

1014 B

-rw-r--r--

pi.awk

341 B

-rw-r--r--

split.awk

1.17 KB

-rw-r--r--

tee.awk

770 B

-rw-r--r--

testbits.awk

736 B

-rw-r--r--

translate.awk

1.15 KB

-rw-r--r--

uniq.awk

2.64 KB

-rw-r--r--

wc.awk

1.45 KB

-rw-r--r--

wordfreq.awk

347 B

-rw-r--r--

Code Editor : split.awk

# 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
}

${this.title}

Code Editor : split.awk