k7r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/bin/awk -f
#k7r: k8serizer
{
	split($0, words, FS)
	for (w in words) {
		printf "%s ", k8serize(words[w])
	}
	printf "\n"
}


function k8serize(word)
{
	if (! match(word, /.(.*)./)) {
		return (word "0")
	}
	return (substr(word, 1, 1) (RLENGTH - 2) substr(word, RSTART + RLENGTH - 1))
}