2156 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.com) use warnings; use strict; use Getopt::Long; use LWP::Simple; use URI::...tries => 5, help => undef ); Getopt::Long:...2927 days ago
2883 days ago
2716 days ago
2705 days ago
Genetic Algorithms demonstration with word DNA in Perl
#!/usr/bin/perl -w # GA demonstration with word DNA (512 bits) use strict; use Data...th 0 fitness my $max_entry_length = 20; # longest word we accept # you ca...'s OK) # increment the fitness depending on how long...2383 days ago
Create genome scaffolding with Perl
#!/usr/bin/perl use warnings; use strict; use English; use Pod::U...cumentation in usage code use Getopt::Long qw(:config auto_version auto_...= ($tSize < $qSize) ? 1 : 0; my $longTarget = (1 - $shortTarget);...* 4)]; my $lLen = $fields[10 + ($longT...2320 days ago
2276 days ago
Perl script to check fastq reads qualities !
#!/usr/bin/env perl use strict; use warnings; sub readfq { my ($fh, $aux) = @_; @$aux = [undef, 0] if (!defined(@$aux)); return if ($aux->[1]); if (!def...2166 days ago
2221 days ago