bin/mw.awk


1
2
3
4
5
6
7
8
9
10

# Crude approach to get alphabetic words one per line from input, not sorted or
# deduplicated
BEGIN {
    FS = "(--|['_-]*[^[:alnum:]'_-]+['_-]*)"
}
{
    for (i = 1; i <= NF; i++)
        if ($i ~ /[[:alpha:]]/)
            print $i
}