Re: 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
[download]

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

Replies are listed 'Best First'.
Re^2: change [A-Z] to U, [a-z] to L with one regex? by ikegami (Patriarch) on Mar 20, 2013 at 07:00 UTC
Simpler solution not limited to non-ASCII chars: `s/(\p{Lu})\|\p{Ll}/ defined($1) ? 'U' : 'L' /eg;` [download]	[reply] [d/l]
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
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)	[reply] [d/l]
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]