blob: 95d70c32667b330ee246b7f9b8a7c80eb71a0682 (
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 = "(--|['_-]*[^[:alnum:]'_-]+['_-]*)"
}
{
for (i = 1; i <= NF; i++)
if ($i ~ /[a-zA-Z]/)
print $i
}
|