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

[daxim]

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

There are more than just upper-case and lower-case letter characters. Decide what you want to do with those you haven't considered yet, and put them into the map.

use Unicode::UCD qw(charinfo);
my %category_map = (
    Lu => 'U', # letter, upper
    Ll => 'L', # letter, lower
);

my $r = 'SomEThingWithMIXEDRegiSter';
$r =~ s
    {
        (.) # capture the character
    }
    {
        $category_map{
            charinfo(ord $1)->{category}
        }
    }egmsx;
# ULLUULLLLULLLUUUUUULLLULLL

[LanX]

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"

[ikegami]

I'm pretty sure $1 eq "\u$1" can fail for some characters it shouldn't fail for.

[ikegami]

Simpler solution not limited to non-ASCII chars:

s/(\p{Lu})|\p{Ll}/ defined($1) ? 'U' : 'L' /eg;