2141 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:...2912 days ago
2868 days ago
2701 days ago
2690 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...2368 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...2305 days ago
2261 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...2151 days ago
2206 days ago