欢迎大家来到IT世界,在知识的湖畔探索吧!
一、程序目的：计算序列点突变（Point Mutations）
输入：
GAGCCTACTAACGGGAT CATCGTAATGACGGCCT
欢迎大家来到IT世界,在知识的湖畔探索吧!
输出：
欢迎大家来到IT世界,在知识的湖畔探索吧!7
二、程序设计
读取序列后利用split分割字串，然后注意比较，注意perl字符比较用“ne”（不等于）。
#!/usr/bin/perl/ use strict; my (@seq, @seq1, @seq2, $distance); @seq = <>; # @seq1 = split //, chomp($seq[0]); # 这样会出错，chomp有返回值0 1 # @seq2 = split //, chomp($seq[1]); @seq1 = split //, $seq[0]; @seq2 = split //, $seq[1]; for(my $i = 0; $i <= $#seq1; $i++){ if($seq1[$i] ne $seq2[$i]){ $distance++; } } print $distance."\n";
三、补充
perl比较
| 数字 | 字符 | |
| 大于 | > | lt |
| 小于 | < | gt |
| 等于 | == | eq |
| 不等于 | != | ne |
| 大于或等于 | >= | ge |
| 小于或等于 | <= | le |
其他的代码：
欢迎大家来到IT世界,在知识的湖畔探索吧!#!/usr/bin/perl # my @str = <STDIN>; my $c = 0; for ($i = 0; $i < length($str[0]); $i++){ $c++ if (substr ($str[0], $i, 1)) ne (substr ($str[1], $i, 1)); } print "$c\n";
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://itzsg.com/122009.html
