概述
复制代码 代码如下:
#!/bin/perl
use strict;
use warnings;
#进行定义
my @dna;
my $dna_length;
my $newbase;
my $i=0;
print "please input the DNA length\n";
chomp($dna_length=<>);
while($i<$dna_length)
{
#从四个碱基中随机选取一个
my(@nucleotides)=qw/A T G C/;
$newbase=$nucleotides[rand @nucleotides];
#将随机生成的序列添加到@dna的数组中
push(@dna,$newbase);
++$i;
}
print "@dna";
最后
以上就是明亮墨镜为你收集整理的perl 指定长度并生成一个随机的DNA序列的脚本代码的全部内容，希望文章能够帮你解决perl 指定长度并生成一个随机的DNA序列的脚本代码所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复