How do I Capitalize the first letter?

[nntp]

s/\s(\w)//g;
how to inclue the fist letter in too?

I want to make
abc xyz to Abc Xyz

 

[Jim Keenan]

s/\s(\w)//g;
how to inclue the fist letter in too?

I want to make
abc xyz to Abc Xyz

perldoc -f ucfirst

 

[Tad McClellan]

I want to make
abc xyz to Abc Xyz

s/(\w+)/\u\L$1/g; # untested

 

[Paul Lalli]

perldoc -f ucfirst

Have you yourself read that documentation? It doesn't do what the OP
asked for.

Paul Lalli

 

[Paul Lalli]

s/\s(\w)//g;

this is elminating the space and word character. That doesn't at all
match your subject.

how to inclue the fist letter in too?

I want to make
abc xyz to Abc Xyz

\s is searching for a space. You just want to find the first character
in each 'word'. Assuming you don't mind Perl's default definition of
'word' characters (which include digits and underscores), you're going
to want something closer to this:

s/\b(\w)/\u$1/g;

read perldoc perlre for info on \b. Read perldoc -f ucfirst for info on \u

HOWEVER, this will not function as you intend for several phrases. One
obvious example is:
"this won't work", which would become "This Won'T Work".

So perhaps you might actually want to look for the space, but also
inclue the very first character in the string:

s/(^|\s)(\w)/$1\u$2/g;

Paul Lalli

 

[Ben Morrow]

s/(^|\s)(\w)/$1\u$2/g;

I would use positive look-behind:

s/(?:^|(?<=\s))(\w)/\u$1/g;

just 'cos it's neater. No variable-length lookbehind is annoying, though...

Ben

 

[John W. Krahn]

Not sure on exactly what you are asking for. Below will capitalize the
first letter of every word in $a.

join ' ', ( map {ucfirst $_ } split /\W/, $a );

You are changing all the \W characters to ' ' which may not be what the OP
wants. You could fix that by:

join '', map ucfirst, split /(\W+)/, $a;


John

 

[Anno Siegel]

Have you yourself read that documentation? It doesn't do what the OP
asked for.

It does point to the "\u" escape, which is what the OP wants:

s/\s(\w+)/ \u$1/g;

or better

s/\b(\w+)/\u$1/g;

Anno