perl練習 計算點突變

2022-11-24 20:01:17 字數 920 閱讀 7595

一、程式目的:計算序列點突變(point mutations)

輸入:gagcctactaacgggat

catcgtaatgacggcct

輸出:

7

二、程式設計

讀取序列後利用split分割字串,然後注意比較,注意perl字元比較用“ne”(不等於)。

#

!/usr/bin/perl/

usestrict;

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++)

}print

$distance."

\n";

三、補充

perl比較

數字字元

大於》lt小於

<

gt等於

==eq

不等於!=

ne大於或等於

>=

ge小於或等於

<=

le其他的**:

#

!/usr/bin/perl#my

@str = ;

my$c = 0

;for ($i = 0; $i

< length($str[0]); $i++)

print

"$c\n

";