作者yhsuan (~伽利略的星空~)
看板perl
標題Re: [請益] 有關基因序列
時間Mon Aug 28 18:01:06 2006
$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)
1F：推 FEmessenger:沒想到可以用 substr 太感謝啦~~!! 08/29 00:19