Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/nawk -f
BEGIN {
FS="\t"
}
{
for (i in hash)
delete hash[i]
for (i = 1; i <= NF; i++) {
sep = index($i, ":")
key = substr($i, 1, sep - 1)