Capitalize the first letter of each word

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Capitalize the first letter of each word by suaveant (Parson) on Jul 11, 2005 at 16:52 UTC
Search first, please... Capitalize First Letter of Each Word - Ant - Some of my best work - (1 2 3)	[reply]
Re: Capitalize the first letter of each word by davidrw (Prior) on Jul 11, 2005 at 16:54 UTC
Are you trying w/regular expression approach or other? For non-re, lookup split, map, lc, ucfirst, and join in `perldoc perlfunc`. For re, you can a word boundry `\b` (see `perldoc perlre`) followed by a lower case letter and then uc it (look at the `/e` modifier). Update: sauveant beat me to the search for the recent thread	[reply] [d/l] [select]
Re: Capitalize the first letter of each word by gam3 (Curate) on Jul 11, 2005 at 17:17 UTC
As I am not feeling pedantic today. Here is an answer. `print(join' ', map({ ucfirst() } split /\s/, "to say it once"), "\n");` [download] -- gam3 A picture is worth a thousand words, but takes 200K.	[reply] [d/l]
Re: Capitalize the first letter of each word by Adrade (Pilgrim) on Jul 11, 2005 at 18:18 UTC
Before I knew about ucfirst(), I wrote the following function to satisfy a specific need - you can use it as the basis for one of your own construction. It doesn't work like ucfirst though, as I needed to catch things like Mr. and Mrs. and have words one or two letters long left in their case... but you get the idea. Read more... (1369 Bytes) -Adam -- By a scallop's forelocks!	[reply] [d/l] [select]
Re: Capitalize the first letter of each word by tlm (Prior) on Jul 12, 2005 at 01:03 UTC
`$string =~ s/(?:^\|(?<=\s))(\w)/\U$1/g;` [download] the lowliest monk	[reply] [d/l]
Re: Capitalize the first letter of each word by injunjoel (Priest) on Jul 11, 2005 at 19:46 UTC
Greetings all, Yet another way to do it. `use strict; my $text = "to say it once"; $text =~ s/(\w+)/\u\L$1/g; print $text;` [download] produces: `To Say It Once` [download] -InjunJoel "I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo	[reply] [d/l] [select]
Re^2: Capitalize the first letter of each word by brian_d_foy (Abbot) on Jul 11, 2005 at 20:26 UTC
Of course, your solution is broken for the reasons I explain in perlfaq4. -- brian d foy <brian@stonehenge.com>	[reply]
Re^3: Capitalize the first letter of each word by injunjoel (Priest) on Jul 12, 2005 at 23:09 UTC
Thanks for the heads up. -InjunJoel "I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo	[reply]
Re: Capitalize the first letter of each word by radiantmatrix (Parson) on Jul 12, 2005 at 19:12 UTC
Whee! `my $start = 'to say it once'; print join ' ', map { ucfirst($_) } split '\s', $start;` [download] Larry Wall is Yoda: there is no `try{}` The Code that can be seen is not the true Code	[reply] [d/l]


There's more than one way to do things
	PerlMonks