作者cutecpu (可爱中央处理器)
看板perl
标题Re: [请益] 两条dna的比较~~
时间Thu Oct 5 08:23:21 2006
$dna1="ATGCGATCGTACCTAG";
$dna2="ATGGGATCGTACCTAC";
$len=length $dna1;
for($cnt=0;$cnt<$len;$cnt++){
push @diff,$cnt if(substr($dna1,$cnt,1) ne substr($dna2,$cnt,1));
}
print $_,$/ for(@diff)
※ 引述《sosoni (ㄚsoso)》之铭言：
: 假如有两条序列
: ATGCGATCGTACCTAG
: ATGGGATCGTACCTAC
: 那要如何把不同处找出@@
: 刚刚碰perl的新菜鸟@@"
: 知道的大大~~~可否帮解题一下呢!!
: 感恩阿~~~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.230.75.163