in reply to Capitalize First Letter of Each Word

 @a = 
 ("THIS IS TESTING",
"JOE MARCONES",
"RESIDENTIAL MAINTENANCE COMPANY",
);
s#(.)(\w+)( )?#\U\1\L\2\3#gsi for @a; 
print join "\n", @a;

[download]

Replies are listed 'Best First'.
Re^2: Capitalize First Letter of Each Word
by holli (Abbot) on Jun 30, 2005 at 13:26 UTC
    2 points.

    1. It is save to use the ? without braces if the optional part is a single char.
    2. No need for the i and s modifier

    So that boils down to 
    s#(.)(\w+ ?)#\U\1\L\2#g for @a;

    [download]
    which looks actually nicer than my original post.


    holli, /regexed monk/
[reply]
[d/l]

      It does, except it doesn't work: 

      my @a = ("a  sTrinG\n" );
s#(.)(\w+ ?)#\U\1\L\2#g for @a;
print @a;
__END__
a  string

      [download]

      Two things are happening here: The first is that this requires each word to be two characters or more (so it fails on the initial "a"). The second is that the . can match a space, so " sTrinG" fails because \1 contains a space.

      I suggest 

      s{ \b(\w+) }{\u\L$1}gx;

      [download]
[reply]
[d/l]
[select]
        s#\b(\w)(\w* ?)#\U$1\L$2#g

        [download]
        does the trick.


        holli, /regexed monk/
[reply]
[d/l]
      I just need to trough this here as well.
      What if I have some uncials like, "LTD" at the end of the string or on the string and it couldn't be changed
[reply]
        I don't get you. What on earth is a "uncial"?


        holli, /regexed monk/
[reply]
[d/l]

In Section Seekers of Perl Wisdom