aboutsummaryrefslogtreecommitdiff
path: root/bin/mw.awk
blob: c2565cf3d2a264cba40bd885c9ab708dbb8aa7c9 (plain) (blame)
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 = "(--|['_-]*[^[a-zA-Z0-9_]'_-]+['_-]*)"
}
{
    for (i = 1; i <= NF; i++)
        if ($i ~ /[a-zA-Z]/)
            print $i
}