blob: 8af2831206affbaf3fd784b081cdf292d95f49b5 (
plain) (
tree)
|
|
# 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
}
|