523066680

Perl

my $lower = my $upper = 'bBAathToHOMmEe';
$lower =~s/[A-Z]//g;
$upper =~s/[a-z]//g;
print $lower.$upper;
复制代码

如果不用正则，也就是遍历，加点糖

my @s = split('', 'aDbEcFghijkLMN');
my $n = 0;
grep { print $_ if ( $_ ~~ ['a'..'z'] ) } @s;
grep { print $_ if ( $_ ~~ ['A'..'Z'] ) } @s;
复制代码

python也学了点毛皮

u = ''
l = ''

for c in 'bBAathToHOMmEe':
    if c in "abcdefghijklmnopqrstuvwxyz":
        l+=c
    else:
        u+=c

print(l+u)
复制代码

523066680

回复 4# happy886rr

    我想到了 find， 速度慢；我想到了 if , 大小写区分，虽然 'A' gtr 'a' 成立, 但是 'A' gtr 'z' 居然不成立；
这个时候我想到了把 a b c, A B C 分组放到变量名里，很可惜，变量名不区分大小写。对批处理感到无助

不过，OK的，勉强写一个

@echo off & setlocal enabledelayedexpansion
set str=BaAbTcHdOeMfEg
set dupl=%str%
set "uc="
set "lc="
for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
    set dupl=!dupl:%%a=%%a!
)

set /a n = 0
:lp
    if "!str:~%n%, 1!" == "!dupl:~%n%, 1!" (
        set lc=!lc!!str:~%n%, 1!
    ) else (
        set uc=!uc!!str:~%n%, 1!
    )
    set /a n+=1
if not "!str:~%n%!" == "" goto :lp

echo %lc%%uc%
pause
复制代码

523066680

回复 14# codegay


    一行正则可以啊，加循环算不算... 只要有小写跟在大写后面，就反转，直到没有这种情况为止

$s = "cDbEFa";
while ( $s =~s/([A-Z])([a-z])/$2$1/) {}
print $s
复制代码

523066680

回复 24# happy886rr


    Matrix67我知道，还买了他的第一版书作为支持。现在他博客上有很多更新文章还未看，忙于工作和重新补习不同语言的语法(糖)。

523066680

回复 36# happy886rr

    才看到你说改行，好奇现在做什么了？业余也不写代码了吗