Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
#!/usr/local/bin/perl -w # While executing this script...unt_of_C = 0; $count_of_G = 0; $count_of_T = 0; $errors = 0; foreach $base (@DN...++$count_of_G; } else { print "Error - Unknown base: $base\n";...2930 days ago
Retrieve NCBI GenBank records with a range of accession numbers
#!/usr/bin/perl #FILE: ncbi_search.pl #AUTH: Paul Stot...m/(.*)/is) { die("ESearch returned an error: $1"); } me...UTFILE, ">" . $param{outputFile} ) or die("Error: Cannot open $param{outputFil...2930 days ago
A multilayer perceptron (MLP) neural network in Perl
#!/usr/local/bin/perl -w #################################################### #ML...######################## my $patNum; my $errThisPat; my $outPred; my $RMSerror; my @trainInputs; my @tra...2930 days ago
Perl program to implement sliding window !
#!/usr/bin/perl -w my $filename = 'data.txt'; open(my TR, '2928 days ago
2924 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,"2889 days ago
2886 days ago
Create genome scaffolding with Perl
#!/usr/bin/perl use warnings; use strict; use English...2usage({-exitVal => 1, -message => "Error: Unknown command-line option...od2usage({-exitVal => 1, -message => "Error: No query assembly file provi...2322 days ago
Perl script to remove fasta sequences in multifasta file with certain length threshold
#!/usr/bin/perl use strict; use warnings; my $minlen = shift or die "Error: `minlen` parameter not provided\...2265 days ago
Plot custom gene density with R
library(karyoploteR) pp2264 days ago