Perl script to count the number of Adenine, Thymine, Guanine and Cytosine in your DNA Sequence
...$base eq 'A' ) { ++$count_of_A; } elsif ( $base eq 'G' ) { ++$count_of_G; } else { print "Error - Unknown base: $base\n"; ++$e...2931 days ago
Create genome scaffolding with Perl
...shift @ARGV; if(-f $argument){ push (@pslFiles, $argument); } else { pod2usage({-exitVal => 1, -message => "Error: Unknown command-line option or "....2323 days ago
Perl script to convert GFF 2 FASTA !
#!/usr/bin/perl use strict; use warnings; use Bio::Seq; use Bio::SeqIO; use Bio::DB::Fasta; $| = 1; # Flush output my $outfile_cds = Bio::SeqIO->new( -forma...2154 days ago
2141 days ago
Long reads mapper bash script !
...hmap" ]; then echo "Mapping with $toolName" $graphMapLoc align -r $refFasta -d $longReads -t $thread -o $fileName.out.sam else echo "Unknown mapper name and parameter !"...2137 days ago
2034 days ago
1524 days ago