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

最新推荐文章于 2020-12-22 11:33:12 发布

morningCV

最新推荐文章于 2020-12-22 11:33:12 发布

阅读量5.6k

点赞数 1

分类专栏：编程jin perl 编程经验

本文链接：https://blog.csdn.net/g_r_c/article/details/8107575

版权

编程经验同时被 3 个专栏收录

108 篇文章 1 订阅

订阅专栏

perl

101 篇文章 7 订阅

订阅专栏

编程jin

52 篇文章 0 订阅

订阅专栏

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;