在线求教，如何把一个字符串替换成多个

zxx218

小弟是新手

如何把  ABC_1_DE  替换成   gc_DE.ABC_1=def_ABC_1_DE

也就是说要把最后的横杆后的DE截出来，并且整个字符串还要接上def_

很急，哪位高手指点一把，万分感谢！

怒剑狂啸

试试这个吧？还可以再严格些，要根据你的实际进行调整

1. 
   
2. $data1="ABC_1_DE";
   
3. $data2="gc$&.$`=def_$`$&" if ($data1=~/_\w+$/);
   
4. print $data2;
   

复制代码

iwantican

my $data1="ABC_1_DE";
if ($data1 =~ /_[\d|a-z|A-Z]+$/)
{
        my $data2 = 'gc'.$&.'=def_'.$data1;
        print "$data2\n";
}

iwantican

\w+包括_的，在这里不好用