怎么把一个字符串中指定位置变成小写？

raoweijian

比如一个字符串全是字母，ATATACTCTCGGGACA，类似这样的，然后指定从比如100-200变成小写，其他不变，怎么实现？

grshrd49

1. $string = "aaaaaaaaaaaa";
   
2. @fensan = split //,$string;
   
3. $fensan[$_] = uc($fensan[$_]) for(3..6); #这里是下标,记得要+1
   
4. $string = join "",@fensan;
   
5. print $string;

复制代码

uc()大写
lc()小写

当然也可以用str()字符串处理函数
楼主搞本小骆驼书 通读一边这些简单的处理都能摸透拉

kk861123

1. substr($str,100,200) = lc(substr($str,100,200));

复制代码

rubyish

1. my $s = 'ATATACTCTCGGGACA';
   
2. sub hello {
   
3.     my ( $S, $h, $t ) = @_;
   
4.     my $T = $t - $h + 1;
   
5.     substr $S, $h, $T, lc substr $S, $h, $T;
   
6.     $S;
   
7. }
   
8. my $new = hello $s, 3, 5;
   
9. say $new;

复制代码

rubyish

1. ATAtacTCTCGGGACA

复制代码

mcshell

1. my $str = "ATATACTCTCGGGACA";
   
2. my ($m,$n) = (3,5);
   
3. my $x = $n-$m+1;
   
4. $str =~ s/^(.{$m})(.{$x})/$1.lc($2)/eg;
   
5. print $str;

复制代码

{:3_199:}

grshrd49

回复 6# mcshell


6楼啊，你的签名的gif图片晃的我头晕啊，每次看你的回复只能删掉你的签名图片才能认真看下去....

mcshell

回复 7# grshrd49


    再看一次{:3_186:} {:3_186:}{:3_186:}

grshrd49

回复 8# mcshell


    我  恨   你   

hbmhalley

$_=lc for (substr($YOURSTR, 100, 101)) ;