прописные слова печати в первом столбце файла

Решение perl:

$ perl -Mopen=locale -anle 'print $F[0] if /^[[:upper:]]+\b/' file 
VDD
GND
AGNDSUB
VMEASPOS
VMEASNEG
VREFEXT

Можно использовать awk:

awk '/^[A-Z]+\>/ { print $1 }' < data

/^[A-Z]+\>/ matches полных слов заглавными буквами в начале строки. {выведите $1} и распечатайте первое поле в этих строках.

Существует несколько способов решения проблемы.

Вы можете распечатать первое слово, если он содержит только заглавные буквы:

awk '$1 ~ /^[[:upper:]]+$/ {print $1}'

(будет печатать VDD , но не VDD + DDV )

Печать первого слово до тех пор, пока он не содержит строчных букв.

awk 'NF && $1 !~ /[[:lower:]]/ {print $1}'

Это будет печатать VDD + DDV или U.S.. Но не VDDFOO, но печатает +++ .

Вы можете распечатать последовательность букв в начале строки, пока они все прописные:

sed 's/[^[:alpha:]].*//;/^[[:upper:]]\{1,\}$/!d'

или игнорировать ведущие пробелы:

sed 's/^[[:blank:]]*//;s/[^[:alpha:]].*//;/^[[:upper:]]\{1,\}$/!d'

будет соответствовать VDD в VDD + XXX Но не в VDDXXX