云中道长

摘要： 写了一个子函数，当然还是用bioperl，只是觉得默认的不太方便#! /usr/bin/perl -wuse Bio::Seq;my $a="TTATTTTCA";my $b=translate_nucl($a);print "$b\n";sub translate_nucl{ my $seq... 阅读全文