Simple Title case regex
Snippet Menu
7
Mon. Nov. 6th, 2006 1:48 PM 
1 of 1
RobHarrigan
"first | "title | capitalize | case" | letter" | Perl 
3 comments
Function to capitalize the first letter in every word in a string, but only if the entire string is in ALL CAPS.
Example:
"I LIKE TO SCREAM" becomes "I Like To Scream"
"I LIKE to RUN" remains "I LIKE to RUN".
Example:
"I LIKE TO SCREAM" becomes "I Like To Scream"
"I LIKE to RUN" remains "I LIKE to RUN".
Votes Up
Votes Down
my $myString = $_[0];
if ($myString !~ /[a-z]/) {
$myString = lc $myString;
$myString =~ s/(.)/eval uc $1/e;
$myString =~ s/ (\w)/' '.eval uc $1/eg;
}
return $myString;
}