1257 days ago
Python script to download covid genome !
#!/usr/bin/env python3 # these are the publicly available "complete" sequences # https:/...xt').read().split("\n")[1:] allseq[nm] = ''.join(dna) import json with open("data/alls...1176 days ago
Read lines from input file – print lines that match a regular expression
#!/usr/bin/perl use strict; use warnings; my $line; #read the line-by-line for each...*[ATCG]+?A{3,10}$/) { print "$line\n"; } } exit(); __DATA__ A...2957 days ago
Parse a genbank file using regular expressions
#! /usr/local/bin/perl -w $genbank = "genbank_file.txt"; open (GENBANK, $genbank) || d...d of translation product not found.\n"; } } else { # Skip this data...2957 days ago
A multilayer perceptron (MLP) neural network in Perl
#!/usr/local/bin/perl -w ################################################...s create an #extra input in the training data #and set to 1 #########...7; my $LR_HO = 0.07; ################ Data d...ights initWeights(); # load in the data i...2956 days ago
Perl program to implement sliding window !
#!/usr/bin/perl -w my $filename = 'data.txt'; open(my TR, '2954 days ago
2954 days ago
Needleman-Wunsch Algorithm in Perl
#!/usr/bin/perl # USAGE: perl nw.pl HEAGAWGHEE PAWHEAE BLOSUM50.txt -8 # See: "Biological sequence anaysis" Durbin et al. ed. CUP 1998, Pg. 19 # Needleman-W...2945 days ago
Perl script to extract lines with matching ids !!
#!/usr/bin/perl use strict; use warnings; my %patterns; #USAGE: perl extactByIds.pl Idsfile1 file2 > Result # Open file and get patterns to search for open(my $fh2,"2915 days ago
Perl subroutine to read and write files
# Input output (InOut) the file # usage: # @array = InOut('read',$file) # $string = In...e','file.txt',\$string); sub InOut { my($bit,$file,$data)...ot open $file for output: $!\n"; print InOut ref $data eq '...2906 days ago