摘要:
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";} 阅读全文