Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
...es not exist!!! \n"; print "Cannot open file \"$dna_filename\"\n"; die; } @DNA = ; close DNAFILE; $DNA = join( '', @DNA); print " \n The original DNA file is:\n $DNA \n"; $D...2967 days ago
A multilayer perceptron (MLP) neural network in Perl
#!/usr/local/bin/perl -w #################################################### #MLP neural network in Perl Original source code by Phil Brierley #Translated into perl - ccolbourn O...2967 days ago
Implementation of biological random mutation with Perl
...AAAAAAAAAAA \ n"; my $I; my $mutant; srand (time | $$). $mutant=mutate ($DNA); print "Mutate \ n". $DNA; print "Here is the the original DNA: \ n"; print "$DNA \ n...2952 days ago
2177 days ago
2126 days ago
Perl script to reverse complement a DNA sequence !
...was a bad algorithm, and the reverse complement was wrong!\n"; print "Try again ... \n\n"; # Make a new copy of the DNA (see why we saved the original?) $revcom = reverse $DNA;...2094 days ago