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