Perl script to Mutate a DNA Sequence
...domelement { my(@array) = @_; return $array[rand @array]; } sub randomnucleotide { my(@nucleotides) = ('A', 'C', 'G', 'T'); return randomelement(@nucleotides); }2929 days ago
2922 days ago
Implementation of biological random mutation with Perl
#!/usr/bin/perl -w use strict; use warnings; #sequence for a better recognition my $DNA="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA \ n";...2914 days ago
Perl script to generate a random psuedo DNA sequence !
#!/usr/bin/perl print "Enter a number of nucleotides: \n"; chomp ($N = ); @b=qw/A T G C/;print ">Genome\n";while($l2896 days ago
Perl script to find coding regions in DNA sequences
...ot be opened\n"; exit(1); } # load the frequencies of codon usage into the hash table %pcodons # this hash is indexed by a triplet of nucleotides or codon my %pcodons; my...2168 days ago