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

zxx218

小弟是新手

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

也就是說(shuō)要把最后的橫桿后的DE截出來(lái)，并且整個(gè)字符串還要接上def_

很急，哪位高手指點(diǎn)一把，萬(wàn)分感謝！

怒劍狂嘯

試試這個(gè)吧？還可以再嚴(yán)格些，要根據(jù)你的實(shí)際進(jìn)行調(diào)整

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

復(fù)制代碼

iwantican

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

iwantican

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