[Image of Linux]
Linux's Witness Ministry
The Personal Web Pages of Chris X. Edwards

ex-mkranddata.pl
-------------------------- 
#!/usr/bin/perl -w
$SIZE=3000;

srand(time);
@dna = ("A", "C", "G", "T");
for ( $x=0; $x<$SIZE; $x++ ){
print $dna[rand(4)];


}

--------------------------
Return to Program Examples
This page was created with only free, open-source, publicly licensed software.
This page was designed to be viewed with any browser on any system.
Chris X. Edwards ~ January 2003