Needleman-Wunsch Algorithm in Perl
...eme (instead of using fixed MATCH and MISMATCH scores we will use values read from BLOSUM50) my $MATCH = 1; # +1 for letters that match my $MISMATCH = -1; # -1 for letters that mismatch my $GAP =...2918 days ago
Count GC Content in nucleotide sequence with Perl
...sub usage { $0 get_gc_content.pl } sub process_it { @letters = split(//, $seq); $gcco...$tcount = 0; $gcount = 0; $ccount = 0; foreach $i (@letters) { if (lc($i) =~ /[a-z]/) {...2918 days ago
Genetic Algorithms demonstration with word DNA in Perl
...# a good starting point my $dna_length = 512; # 4 "letters" in the DNA my $dna_byte_len...{ chomp; } # eliminate words over $max_entry_length letters, and uppercase them @dict...2385 days ago
Perl script to find coding regions in DNA sequences
...r each line in the file (tableofcodons) do while ($line = ) { # extract the two values or columns with a regular expression # A group of letters and a decimal number ($c...2168 days ago
Perl One-Liner to print only non-uppercase letters
#Go through file and only print words that do not have any uppercase letters. perl -ne 'print unless m/[A-Z]/' dna.fa > dnaOnlyLowercase.fa #To lowercase everything perl -pne 'tr/[A-Z]/[a-z]/' dnaUpperCase.fa >dnawithoutuppercase.fa;1396 days ago
Perl script for Smith-Waterman Algorithm
...V == 2; # get sequences from command line my ($seq1, $seq2) = @ARGV; # scoring scheme my $MATCH = 1; # +1 for letters that match my $MISMATCH = -1; # -1 for letters that mismatch my $GAP =...963 days ago
R script to covert and export html page to png
# Library library(streamgraph) # Create data: data431 days ago