程序文件:test.pl
结果如下:
f:\>perl\test.pl
mutate
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
here is the original dna:
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
here is the mutant dna:
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaa
here are 10 more successive mutations:
acaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaa
acaaaaaaaaacaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaa
acaaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaataaaaaaaaaaaaaaa
acaaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaataaaaaaaaaaaaaaa
acaaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaataaaaaaaaaaaaaaa
acaaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaatgaaaaaaaaaaaaaa
actaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaatgaaaaaaaaaaaaaa
actaaaaaaaacaaaaaaaaaaaaataagaaaaaaaaaaaatgaaaaaaaaaaaaaa
actaaaaaaaacaaaaaaaaaaaaataagaaaaaaaaaaaatgtaaaaaaaaaaaaa
actaaaaaaaacaaaaaaaaaaaaataagaaaaaaaaaaaatgtaaaaaaaaaaaaa
f:\>
发表评论