in reply to Re: Capitalize First Letter of Each Word
in thread Capitalize First Letter of Each Word

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/

Replies are listed 'Best First'.
Re^3: Capitalize First Letter of Each Word
by fishbot_v2 (Chaplain) on Jun 30, 2005 at 13:54 UTC

    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]
        That finishing space is completely extraneous... the \b at the front basically is as well. Space is not a word char, so will be just fine if left alone. The \w at the beginning is basically implying \b, since it will only start to match where a word char is.

                        - Ant
                        - Some of my best work - (1 2 3)

[reply]
Re^3: Capitalize First Letter of Each Word
by Anonymous Monk on Jun 30, 2005 at 13:45 UTC
    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]
        Sorry, "Initial", but here, this solved the issue unless you have a better idea.
        s/(?<=\w)(.)/\l\1/g for $test;
s/Ltd/LTD/ for $test;

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom