Perl script to insert the DNA string in genome
#!/usr/bin/perl use warnings; use strict; use Bio::SeqIO; use Bio::Seq; my $file = $ARGV[0]; # input fasta file (genome file) my $out = $ARGV[1]; # output fas...2657 days ago
Clump Finding Problem Solved with Perl
#Find patterns forming clumps in a string. #Given: A string Genome, and integers k, L, and t. #R...strict; use warnings; my %myHash; my $string="CGGACTCGACAGATGTGAAGAAATGTGA...myHash{$name} == $clump; } kmerMatch ($string, $subStr, $kmer); sub kmer...2332 days ago
Extract the values between to user defined string with Perl
#!/usr/bin/perl -w use strict; while () { process_record() if /^\s*START/; } sub process_record { my $line; while (defined ($line = ) and $line !...2290 days ago
Estimate Genome Size with Jellyfish and R
...unt both strands #-m -mer-len=unit32 Length of the k-mer #-s -size=unit32 Hash size / memory allocation #-o -output=string Output file name #--mi...2244 days ago
Perl script to extract the uniq Ids
#!/usr/bin/perl -w use strict; use warnings; use List::Uniq ':all'; open(my $val, "2237 days ago
Perl script to find missing and move to desire folder
#!/usr/bin/perl -w use strict; use warnings; open(my $ids, "2237 days ago
2149 days ago
Biological Sequence handling with Perl !
...se overload '""' => 'asString', 'neg' => 'reverse'..."; } # Return the sequence as a string sub seq { my $self = sh...the sequence as a human readable string sub type { return 'Gene...argument to concatenate must be a string or a Sequence object"...2179 days ago
2124 days ago
Installing Porechop on Ubuntu !
...adapter sets are present (default: 10000) --scoring_scheme SCORING_SCHEME Comma-delimited string of alignment scores: match,...2104 days ago