perl 指定长度并生成一个随机的DNA序列的脚本代码
更新时间：2013年03月01日 11:23:07 作者：
perl 指定长度并生成一个随机的DNA序列的代码，有需要的朋友可以参考下
复制代码 代码如下:
#!/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 用grep map求交集、并集、补集的例子，有需要的朋友可以参考下2013-02-02
今天我们继续查找mod_perl对req_header的处理，有需要的朋友建议参考学习之2013-02-02
这篇文章主要介绍了Perl中的模式匹配学习笔记,本文讲解了匹配操作符、模式中的特殊字符、模式匹配选项等内容,需要的朋友可以参考下2015-02-02
一行代码解决 perl输入 排序 输出问题，需要的朋友可以参考下2013-02-02
这篇文章主要介绍了About Perl（翻译Perl官网介绍）,本文翻译自Perl官网介绍,讲解什么是Perl、Perl的历史、Perl 5 特征、Perl在WEB环境下的使用等内容,需要的朋友可以参考下2015-06-06
perl为行读取方式，有着强大的对行处理的能力，同样，通过内部命令和巧妙的编程技巧，其对列的处理能力同样不可小觑2013-02-02
想必很多朋友马上就会想到Perl中提供的$ENV这个特殊的哈希变量，对，在$ENV中完全可以获取到一些系统变量2013-02-02
perl打开文件后，可以有几种方式对文件进行读取处理(根据文件大小，文件内容的特征和其它要处理的方式)2013-02-02
Linux/Unix下安装Perl模块有两种方法：手工安装和自动安装。一是从CPAN上下载需要的模块，手工编译、安装。二是联上internet，使用一个叫做CPAN的模块自动完成下载、编译、安装的全过程2013-02-02
Perl的Mail::POP3Client模块和Gmail通信实例
这篇文章主要介绍了Perl的Mail::POP3Client模块和Gmail通信实例,本文直接给出实现代码,需要的朋友可以参考下2015-05-05
最新评论