Re: [請益] 有關基因序列

[yhsuan (~伽利略的星空~)]

$seq="ATCGAATTCG GCTACTAGCTA TTAGCCCTAA GCGTAAATCG AT";
$seq=~s/\s//g;
while ($i<=34 and $_=substr ($seq,$i++,10)){
        # $i 必須小於等於間隔(44)-長度(10)
        print $_," (起始位置為第$i個字母)\n" if m/CG.*?CG/;
}


results:
ATCGAATTCG (起始位置為第1個字母)
TCGAATTCGG (起始位置為第2個字母)
CGAATTCGGC (起始位置為第3個字母)
GCGTAAATCG (起始位置為第32個字母)
CGTAAATCGA (起始位置為第33個字母)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.23.113

※ 編輯: yhsuan          來自: 140.112.23.113       (08/28 18:23)
※ 編輯: yhsuan          來自: 140.112.248.118      (08/28 19:48)
推 FEmessenger:沒想到可以用 substr   太感謝啦~~!!