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 it asks for the file name of...nt_of_C = 0; $count_of_G = 0; $count_of_T = 0; $errors = 0; foreach $base (@DN...++$count_of_G; } else { print "Error - Un...2927 days ago
Retrieve NCBI GenBank records with a range of accession numbers
#!/usr/bin/perl #FILE: ncbi_search.pl #AUTH: Paul Stothard (paul.stothard@gmail.co...m/(.*)/is) { die("ESearch returned an error: $1"); } me...TFILE, ">" . $param{outputFile} ) or die("Error: Can...2927 days ago
A multilayer perceptron (MLP) neural network in Perl
#!/usr/local/bin/perl -w #################################################### #MLP neural network in Perl Ori...####################### my $patNum; my $errThisPat; my $outPred; my $RMSerror;...2927 days ago
Perl program to implement sliding window !
#!/usr/bin/perl -w my $filename = 'data.txt'; open(my TR, '2925 days ago
2921 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,"2886 days ago
2883 days ago
Create genome scaffolding with Perl
#!/usr/bin/perl use warnings; use strict; use English; use Pod::Usage; ## uses...usage({-exitVal => 1, -message => "Error: Unknown command-line option...d2usage({-exitVal => 1, -message => "Error: No...2319 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\n"; { local $/=">"; while() { chomp; next unless...2262 days ago
Plot custom gene density with R
library(karyoploteR) pp2261 days ago