Question

Using Perl Program: Write a program that will generate a DNA sequence (at random) of size 1000 bp. The sequence should contain all four nucleotides (A, G, C and T).

Answer 1

Hi there!

Below is attached the required perl code for your question. Please go through the entire code.

Code:

 $str = "RANDOM DNA SEQUENCE GENERATOR"; print "$str\n"; @nb = ('A', 'C', 'G', 'T'); for($a = 0; $a < 1000; $a = $a + 1) { $i = int rand @nb; $j = int rand @nb; if($i != $j){ $elem = $nb[$i] . '-' . $nb[$j]; if(!($elem_prev eq $elem)){ push(@seq, $elem); } else{ $a = $a - 1; } } else{ $a = $a - 1; } $elem_prev = $elem; } print join("\n", @seq[0..999]), "\n";

Please go through the the entire code and let me know if there's any problem with the code. I shall explain you if you need further explanation. Any small changes shall and will be entertained. Please do not give a thumbs doiwn if you do not like my answer because later on people like us suffer a lot for that. And like always please give a thumbs up for my answer if you liked it, as this means a lot to me.

Take care.

Thanks & regards,

Your subject expert