perl 指定長度并生成一個(gè)隨機(jī)的DNA序列的腳本代碼
更新時(shí)間：2013年03月01日 11:23:07 作者：
perl 指定長度并生成一個(gè)隨機(jī)的DNA序列的代碼，有需要的朋友可以參考下
復(fù)制代碼 代碼如下:
#!/bin/perl
use strict;
use warnings;
#進(jìn)行定義
my @dna;
my $dna_length;
my $newbase;
my $i=0;
print "please input the DNA length\n";
chomp($dna_length=<>);
while($i<$dna_length)
{
#從四個(gè)堿基中隨機(jī)選取一個(gè)
my(@nucleotides)=qw/A T G C/;
$newbase=$nucleotides[rand @nucleotides];
#將隨機(jī)生成的序列添加到@dna的數(shù)組中
push(@dna,$newbase);
++$i;
}
print "@dna";
相關(guān)文章
perl獲取日期與時(shí)間的例子，供大家學(xué)習(xí)參考2013-02-02
perl 讀取所需文件的路徑，然后打開相應(yīng)的文件
perl，讀取所需文件的路徑，然后打開相應(yīng)的文件，并對文件中的DNA序列進(jìn)行計(jì)數(shù)，substr函數(shù)對長字符串的片段化處理功能2013-03-03
一行代碼解決 perl輸入 排序 輸出問題，需要的朋友可以參考下2013-02-02
perl用grep map求交集、并集、補(bǔ)集的實(shí)例代碼
perl 用grep map求交集、并集、補(bǔ)集的例子，有需要的朋友可以參考下2013-02-02
用Perl操作Excel文檔的例子，有需要的朋友可以參考下2013-02-02
這篇文章主要介紹了詳解Perl字符串比較和整數(shù)比較的區(qū)別,需要的朋友可以參考下2017-09-09
求婚示愛的Perl代碼之改寫篇,特分享下， 方便需要的朋友2013-03-03
這篇文章主要介紹了Perl初學(xué)筆記之Hello World,本文是自學(xué)Perl的一篇筆記,本文著重講解了cpan的使用,需要的朋友可以參考下2015-06-06
這篇文章主要介紹了Perl中的列表和數(shù)組學(xué)習(xí)筆記,本文講解了列表、數(shù)組--列表的存貯、數(shù)組的存取、字符串中的方括號(hào)和變量替換、列表范圍、數(shù)組的輸出等內(nèi)容,需要的朋友可以參考下2015-02-02
Perl 中的use和require，都是用來加載和引用Perl的模塊，或者是子程序，區(qū)別在于Perl use是在當(dāng)前默認(rèn)的里面去尋找，一旦模塊不在指定的區(qū)域內(nèi)的化，用Perl use是不可以引入的2013-02-02