Re^2: change [A-Z] to U, [a-z] to L with one regex?

in reply to Re: change [A-Z] to U, [a-z] to L with one regex?
in thread change [A-Z] to U, [a-z] to L with one regex?

what about punctuation and numbers? =)

my 2¢

  DB<141> $r = 'SomEThingWithMIXEDRegiSter;.?=356';
 => "SomEThingWithMIXEDRegiSter;.?=356"

  DB<142> $r =~ s/(.)/ $1 eq "\u$1" ? ($1 eq "\l$1" ? $1 : "U" ) : ($1
+ eq "\l$1" ? "L" : "X" ) /ge
 => 33

  DB<143> $r
 => "ULLUULLLLULLLUUUUUULLLULLL;.?=356"
[download]

Cheers Rolf

( addicted to the Perl Programming Language)

Comment on Re^2: change [A-Z] to U, [a-z] to L with one regex? Download Code

Replies are listed 'Best First'.
Re^3: change [A-Z] to U, [a-z] to L with one regex? by ikegami (Patriarch) on Mar 20, 2013 at 06:58 UTC
I'm pretty sure `$1 eq "\u$1"` can fail for some characters it shouldn't fail for.	[reply] [d/l]

In Section Seekers of Perl Wisdom