Capitalize first letter of each word in a string

[MatthewHSE]

I don't know diddly about Perl, but I need to make a slight modification to a Perl script on my site. It handles strings of text, and the following line is used to capitalize the first letter in the string:

$KeyWord = ucfirst($KeyWord);

Is there any easy way to modify that so that it will capitalize the first letter of each word in the string, like ucwords() in PHP? (I did a search for 'perl ucwords' and got some results, but when I tried it, it caused a software error in the script.)

Thanks,

Matthew

[coopster]

I believe ucwords is part of a CPAN module, Interpolation. You could either use the module or roll your own 'ucwords' function.

my $string = lc shift; 
$string =~ s/\b(\w)/\u$1/g;

[perl_diver]

I don't think coopsters code will work as posted, but should with a little modification, this will work:

my $string = 'this is a string of text';
$string =~ s/\b(\w+)\b/ucfirst($1)/ge;
print "$string\n";

but without seeing the actual data it's hard to say how effective it will be.

[coopster]

Welcome to WebmasterWorld, perl_diver.

You are correct, that code is not a working snippet, merely a snapshot of the function that I located in the Interpolation module. Thanks for the help there ;-)

[perl_diver]

Thanks for the welcome. Sorry for the confusion, I see now that you were informing the user that they could use the Interpolation module, in which case your code might have worked as-is, I'm not sure, I never used that module, but it does look interesting.

My only other concern is that it is not a core module and has a dependency: HTML::Entities , both would have to be installed by the user, which seems like more effort than necessary since a simple regexp will suffice for this situation.

[coopster]

I agree wholeheartedly. I would grab that simple regex, roll my own function, and go from there ;-)

[pageoneresults]

Off topic but, you can do this with CSS too...

.ttc{text-transform:capitalize;}

[coopster]

Hey! Not a day goes by!
as he logs CSS tip in memory bank ...

[pageoneresults]

as he logs CSS tip in memory bank ...

lol! Was that you I just saw in my logs not long ago? Actually it wasn't, but it was someone reading this topic. ;)

css+upper+case

[MatthewHSE]

Thanks for all the ideas guys. Overall, the CSS tip seems the simplest. I'll try them all and see what seems to work best.

Thanks again!

[mvander]

Thanks, that css trick worked perfect for me!