本帖最后由 523066680 于 2017-4-11 15:52 编辑
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)
复制代码
|