Shell Programming and Scripting

# capitalize each word in a string
function capitalize(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
}

# main program, for testing
{ print capitalize($0) }

$ awk -F"," '{$2=tolower($2); print $2}' file | nawk -f capitalize > tfile1
$ awk -F"," '{print $2}' file > tfile2
$ touch ofile
$ exec 3< tfile2
$ while read line1
do
read line2 <&3
sed ''/"$line2"/s//"$line1"/'' file | grep "$line1" >> ofile
done < tfile1
$ rm tfile1 tfile2

formatted=$(the first awk command here)
tosed=$(the second awk command here)

PRODUCT No.,SCIENCECIENCE BOOKSOOKS,DESCRIPTION
Product 1,PHILOSOPHIAEHILOSOPHIAE NATURALISATURALIS PRINCIPIARINCIPIA MATHEMATICAATHEMATICA (1687)1687),blah blah blah
Product 2,Dialogueialogue concerningoncerning thehe twowo chiefhief worldorld systemsystems (1632)1632),Blah blah blah
Product 3,Dee Revolutionibusevolutionibus Orbiumrbium Coelestiumoelestium (1543)1543),Blah blah blah

perl -F"|" -lane '$F[1]=~s/(\w+)/ucfirst(lc($1))/ge; print join("|",@F)' inputfile

PRODUCT No.|SCIENCE BOOKS|DESCRIPTION|
Product 1|PHILOSOPHIAE NATURALIS PRINCIPIA MATHEMATICA (1687)|blah blah blah|
Product 2|Dialogue concerning the two chief world systems (1632)|Blah blah blah|
Product 3|De Revolutionibus Orbium Coelestium (1543)|Blah blah blah|
Product 4|the voyage of the beagle (1845)|Blah blah blah |

$ perl -F"|" -lane '$F[1]=~s/(\w+)/ucfirst(lc($1))/ge; print join("|",@F)' inputfile
P|R|O|D|U|C|T| |N|o|.|||S|C|I|E|N|C|E| |B|O|O|K|S|||D|E|S|C|R|I|P|T|I|O|N||
P|R|o|d|u|c|t| |1|||P|H|I|L|O|S|O|P|H|I|A|E| |N|A|T|U|R|A|L|I|S| |P|R|I|N|C|I|P|I|A| |M|A|T|H|E|M|A|T|I|C|A| |(|1|6|8|7|)|||b|l|a|h| |b|l|a|h| |b|l|a|
h||
P|R|o|d|u|c|t| |2|||D|i|a|l|o|g|u|e| |c|o|n|c|e|r|n|i|n|g| |t|h|e| |t|w|o| |c|h|i|e|f| |w|o|r|l|d| |s|y|s|t|e|m|s| |(|1|6|3|2|)|||B|l|a|h| |b|l|a|h| |
b|l|a|h||
P|R|o|d|u|c|t| |3|||D|e| |R|e|v|o|l|u|t|i|o|n|i|b|u|s| |O|r|b|i|u|m| |C|o|e|l|e|s|t|i|u|m| |(|1|5|4|3|)|||B|l|a|h| |b|l|a|h| |b|l|a|h||
P|R|o|d|u|c|t| |4|||t|h|e| |v|o|y|a|g|e| |o|f| |t|h|e| |b|e|a|g|l|e| |(|1|8|4|5|)|||B|l|a|h| |b|l|a|h| |b|l|a|h| ||

awk -F"," '{$2=tolower($2); print $2}' file | nawk -f capitalize

awk -F"," '{print $2}' file