Our Sponsors



Download BioinformaticsOnline(BOL) Apps in your chrome browser.

Freelancer

AdvertiseWithUs

Perl script to generate a random psuedo DNA sequence !

  • Public
By Abhinav 496 days ago
#!/usr/bin/perl print "Enter a number of nucleotides: \n"; chomp ($N = <STDIN>); @b=qw/A T G C/;print ">Genome\n";while($l<$N){print @b[int(rand(4))];$l++;}; print "\n"