perl应用：ＤＮＡ互补序列的获取

发布时间：2020-12-15 21:03:24 所属栏目：大数据来源：网络整理

导读：sub revcom{# A subroutine to compute the reverse complement of DNA sequence # 一个获取DNA互补序列的子程序my($dna)=@_;print $dna."n";my ($revcom)=reverse($dna);$revcom=~tr/ACGTacgt/TGCAtgca/;return $revcom;}my $plus_dna="ATATTATATATAGCGC";

sub revcom
{
	# A subroutine to compute the reverse complement of DNA sequence 
	# 一个获取DNA互补序列的子程序
	my($dna)=@_;
	print $dna."n";
	my ($revcom)=reverse($dna);
	$revcom=~tr/ACGTacgt/TGCAtgca/;
	return $revcom;
}

my $plus_dna="ATATTATATATAGCGC";
my $the_result;

$the_result=revcom($plus_dna);
print $the_result;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!