论坛 › Perl › generate DNA sequence perl

wumai 发表于 2015-12-28 16:00:45

generate DNA sequence perl

use strict;
use warnings;

my @base   = ( "A", "T", "G", "C" );
my $length = 10;
my $num    = 2;

for ( my $i = 1 ; $i <= $num ; $i++ ) {
   for ( my $j = 1 ; $j <= $length ; $j++ ) {
       my $element = $base[ rand @base ];
       print $element;
   }
   print "\n";
}

查看完整版本: generate DNA sequence perl