topic Re: Easy Points - sed/awk help again in Operating System - HP-UX

Easy Points - sed/awk help again

Greg Stark_1 — Fri, 16 Aug 2002 18:35:42 GMT

I know this will be easy for you guys/girls, but how can I take a text file and covert the first letter of each field to caps. I know I could somehow do it with tr and cut but figured you may know of a better way.

Sample before data:
robert d anderson
steven g johnson
joseph wilson
andrew j jones

Sample after data:
Robert D Anderson
Steven G Johnson
Joseph wilson
Andrew J Jones

Thanks again,
Greg

Re: Easy Points - sed/awk help again

Kelli Ward — Fri, 16 Aug 2002 18:48:43 GMT

Hi Greg,

This is kid of beside the point, but I posted a question recently for online learning sites, in it are a couple of nice pages on awk and sed.

http://forums.itrc.hp.com/cm/QuestionAnswer/1,,0xf5384b3ef09fd611abdb0090277a778c,00.html

Also, if you have some good online learning sites and want to share, post them and I'll give you easy points. ;)

Thanks,
Kel

Re: Easy Points - sed/awk help again

Kelli Ward — Fri, 16 Aug 2002 18:50:30 GMT

"This is kid of beside the point."
(That's cute! Meant kind.)
N/A please.
Kel

Re: Easy Points - sed/awk help again

Sridhar Bhaskarla — Fri, 16 Aug 2002 18:53:09 GMT

Hi Greg,

Would you mind if I don't use awk and sed?.

Following is one quick primitive way of doing.
"file" is where your data is.

cat file |while read LINE
do
for WORD in $LINE
do
FIRST=`echo $WORD |cut -c 1|tr -s '[:lower:]' '[:upper:]'`
NEXT=`echo $WORD |cut -c 2-`
printf "${FIRST}${NEXT} "
done
printf "\n"
done

-Sri

Re: Easy Points - sed/awk help again

Tom Danzig — Fri, 16 Aug 2002 19:19:51 GMT

awk '{for(i=1;i<=$NF;i++){x=toupper(substr($i,1,1));y=substr($i,2);printf("%c%s ",x,y)};printf("\n")}

Re: Easy Points - sed/awk help again

Rodney Hills — Fri, 16 Aug 2002 19:30:51 GMT

Greg,

Here is a short perl routine.

cat file | perl -e 'while(<>) { while(/(\S+)(\s+)/g) {print ucfirst($1),$2 }}'

Hope this helps.

-- Rod Hills

Re: Easy Points - sed/awk help again

Tom Maloy — Fri, 16 Aug 2002 19:31:18 GMT

How about perl?

cat test | perl -e 'while (<>) {s/(\w+)/\u$1/g;print}'

Tom

Re: Easy Points - sed/awk help again

OneNeck UNIXSA — Fri, 16 Aug 2002 19:32:15 GMT

How about this one

fasprd01:/home/tjohnson:570$ cat tom.txt
robert d anderson
steven g johnson
joseph wilson
andrew j jones
fasprd01:/home/tjohnson:571$ cat tom.txt | awk -f cap1stletter.awk
Robert D Anderson
Steven G Johnson
Joseph Wilson
Andrew J Jones
fasprd01:/home/tjohnson:572$ cat cap1stletter.awk
# capitalize 1st letter in string

function capital(input, result, words, n, i, w)
{
result = ""
n = split(input, words, " ")
for (i - 1; i <= n; i++) {
w = words[i]
w = toupper(substr(w, 1, 1)) substr(w, 2)
if (i > 1)
result = result " "
result = result w
}
return result
}

{ print capital($0) }
fasprd01:/home/tjohnson:573$

Re: Easy Points - sed/awk help again

Greg Stark_1 — Fri, 16 Aug 2002 19:42:17 GMT

Thanks everyone for the quick response. Sorry Kelli, I got carried away with the point dropdowns on your second reply.

Greg