Shell Programming and Scripting

$ cat cap
#! /usr/bin/ksh

typeset -L1 -u first
name="henry"
first=$name
newname=${first}${name#?}
echo $name $newname
$ ./cap
henry Henry
$

$ cat awkcap
#! /usr/bin/ksh

L="abcdefghijklmnopqrstuvwxyz"
U="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
echo 'henry' | awk -v u=$U -v l=$L '{print substr(u,index(l,substr($0,1,1)),1) substr($0,2);}'
$ ./awkcap
Henry
$

#! /usr/bin/ksh

echo 'henry' | awk -v u="ABCDEFGHIJKLMNOPQRSTUVWXYZ" -v l="abcdefghijklmnopqrstuvwxyz" '{print substr(u,index(l,substr($0,1,1)),1) substr($0,2);}'

#! /usr/bin/ksh

L="abcdefghijklmnopqrstuvwxyz"
U="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
echo 'i%%%%long $$$john&&&&&&  ((())) silver' |\
sed 's/[^a-zA-Z]/ /g;s/  */ /g'| awk -v u=$U -v l=$L '{for (i=1;i<=NF;i++)printf "%s%s ",substr(u,index(l,substr($i,1,1)),1),substr($i,2);print "";}'

$ ./awkcap
I Long John Silver
$