Re: [MacPerl] Change "WORD" to "Word"

["Brian L. Matthews" <blm@halcyon.com>]

|>|>I'm trying to change words that are in all upercase to upper and lower.
|>|I've noticed a lot of solutions to this problem already, but none looks
|>|as simple as mine. So here goes:
|>|	s/(\w+)/\u\L$1/g;
|>That capitalizes the first letter of *every* word. You have to look for
|>an uppercase letter at the start of the word:
|>s/\b([A-Z]\w+)/\L\u$1\E/g;
|You want to apply the substitution to the whole sentence, not just the
|names?

As I recall the original article, and from private communication with
the original querier, and from the text quoted above, the original
request was to take a chunk of text, and modify the case of words that
are in all uppercase. The second substitution above does that, the
first doesn't.

|Still, I think it's simpler to change the case to lower case for every
|letter in a word but leaving the first as it was.
|	s/(\w)(\w+)/$1\L$2/g;

Which also fails in the case you criticize s/\b([A-Z]\w+)/\L\u$1\E/g
for failing: "pHILADELPHIA" becomes "philadelphia". s/(\w)(\w+)/$1\L$2/g
also screws up properly cased words like "MacDonalds".

This doesn't have anything to do specifically with MacPerl, so I suggest
further discussion take place in comp.lang.perl.misc.

Brian

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch