主页 > 知识库 > perl 指定长度并生成一个随机的DNA序列的脚本代码

perl 指定长度并生成一个随机的DNA序列的脚本代码

热门标签:智能机器人电销神器 热门电销机器人 电话机器人哪里有卖 河南虚拟外呼系统公司 惠州龙门400电话要怎么申请 okcc外呼系统怎么调速度 万利达百货商场地图标注 上海企业外呼系统 外呼电信系统

复制代码 代码如下:

#!/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产生随机数实现代码
  • perl生成特定碱基比例的随机序列的代码
  • perl写的一个随机编故事的程序(rand随机函数)
  • 使用Perl生成随机密码

标签:绥化 绵阳 周口 秦皇岛 周口 百色 淮安 合肥

巨人网络通讯声明:本文标题《perl 指定长度并生成一个随机的DNA序列的脚本代码》,本文关键词  perl,指定,长度,并,生成,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《perl 指定长度并生成一个随机的DNA序列的脚本代码》相关的同类信息!
  • 本页收集关于perl 指定长度并生成一个随机的DNA序列的脚本代码的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章