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

看板Perl作者yhsuan (~伽利略的星空~)時間18年前 (2006/08/28 17:57)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

$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

08/29 00:19, , 1^F

08/29 00:19, 1^F

‣ 返回看板[ Perl ] 程設

‣ 更多 yhsuan 的文章

文章代碼(AID): #14yhuREs (Perl)