I5l c4t HEAD main

1 files changed, 18 insertions, 0 deletions

@@ -0,0 +1,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))
+}