作者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