perl 指定长度并生成一个随机的DNA序列的脚本代码
摘要：复制代码代码如下:#!/bin/perlusestrict;usewarnings;#进行定义my@dna;my$dna_length;my...
复制代码 代码如下:
#!/bin/perl
use strict;
use warnings;
#进行定义
my @dna;
my $dna_length;
my $newbase;
my $i=0;
print "please input the DNA lengthn";
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创建指定编码格式(如utf-8)文件的实现代码
下一篇：
perl生成特定碱基比例的随机序列的代码