在線求教，如何把一個字符串替換成多個

zxx218

小弟是新手

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

也就是說要把最后的橫桿后的DE截出來，并且整個字符串還要接上def_

很急，哪位高手指點一把，萬分感謝！

怒劍狂嘯

試試這個吧？還可以再嚴格些，要根據(jù)你的實際進行調(diào)整

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+包括_的，在這里不好用