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


No such thing as a small change
	PerlMonks

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

by LanX (Saint)

on Mar 20, 2013 at 01:20 UTC ( [id://1024408]=note: print w/replies, xml )

Need Help??

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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1024408]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others having an uproarious good time at the Monastery: (6)

As of 2024-04-23 14:19 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found