第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問(wèn)題,去搜搜看,總會(huì)有你想問(wèn)的

麻煩幫忙看看,在perl中如何提取包含相同的字符串?該怎么操作呢?

麻煩幫忙看看,在perl中如何提取包含相同的字符串?該怎么操作呢?

桃花長(zhǎng)相依 2021-10-13 21:11:04
例如:@abc = (abc,def,ghi,gkl,mno,abc.qqq,def.qqq,ghi.qqq,gkl.qqq,mno.qqq)我現(xiàn)在想把@abc中所有包含.qqq的提取出來(lái),并給到另一個(gè)變量。即得到:@www=(abc.qqq,def.qqq,ghi.qqq,gkl.qqq,mno.qqq)第二種:或者能不能將所有帶.qqq的字符串,去掉.qqq然后給到另一個(gè)變量。因?yàn)槲蚁氡葘?duì)所有.qqq前面相同的字母。但現(xiàn)在有.qqq所以對(duì)比不了.菜雞,求大神指教。
查看完整描述

2 回答

?
郎朗坤

TA貢獻(xiàn)1921條經(jīng)驗(yàn) 獲得超9個(gè)贊

按照你的要求編寫的perl程序如下(先用正則表達(dá)式提取,再用正則表達(dá)式替換)


@abc = ("abc","def","ghi","gkl","mno","abc.qqq","def.qqq","ghi.qqq","gkl.qqq","mno.qqq"); $size=@abc; @www=(); for($i=0;$i<$size;$i++){  $string=$abc[$i];  if($string=~ m/[A-Za-z]+\.qqq/){   push(@www,$&);  } } print "@www\n" $size=@www; for($i=0;$i<$size;$i++){  $www[$i]=~ s/\.qqq//i; } print "@www\n";


查看完整回答
反對(duì) 回復(fù) 2021-10-18
?
DIEA

TA貢獻(xiàn)1820條經(jīng)驗(yàn) 獲得超2個(gè)贊

@abc = ("abc","def","ghi","gkl","mno","abc.qqq","def.qqq","ghi.qqq","gkl.qqq","mno.qqq","123.qqq");

@a = grep{s/(\w+)\.qqq$/$1/}@abc;

print"@a\n";




查看完整回答
反對(duì) 回復(fù) 2021-10-18
  • 2 回答
  • 0 關(guān)注
  • 326 瀏覽
慕課專欄
更多

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)