pivot, strjoin

1 files changed, 11 insertions, 0 deletions

diff --git a/pivot b/pivot
new file mode 100755
index 0000000..3c750f2
--- /dev/null
+++ b/pivot
@@ -0,0 +1,11 @@
+#!/usr/bin/awk -f
+
+{
+	split ($0, _columns, "\t")
+	for (i=0;i<length(_columns);++i) {
+		columns[i] = columns[i] "\t" _columns[i]
+}	}
+END {
+	for (i=0;i<length(columns);++i) {
+		print substr(columns[i],2)
+}	}