1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#! /usr/bin/gawk -f /^2014-/ { nextfile } /^\t\*/ { sub(/^\t\*[[:space:]]*/, "") sub(/[:\[(].*/, "") gsub(/,/, "") for (i = 1; i <= NF; i++) { fname = $i if (! (fname in names)) names[fname]++ } } END { for (i in names) print i }