Read lines from input file – print lines that match a regular expression
#!/usr/bin/perl use strict; use warnings; my $line; #read the line-by-line for each line ask if it matches the regex print it if it matches while($line = ){ chomp $line;...2916 days ago
2908 days ago
Needleman-Wunsch Algorithm in Perl
...t sequences, matrix and gapcost from command line my ($seq1, $seq2, $smfile, $gapcost) = @ARGV; # scoring scheme (instead of using fixed MATCH and MISMATCH scores we will use values rea...2905 days ago
2692 days ago
Check overlapping range with Perl
...tests = map int rand $ranges[-1], 0..1000000; match (\@ranges, \@tests); sub d...e}, $_ for @$tests; ($lt, $ge); } sub match { my ($ranges, $tests) =...ge) = div($ranges->[$pivot], $tests); match([@{$ranges}[0..$pivot-1]], $l...2627 days ago
Genetic Algorithms demonstration with word DNA in Perl
...entry (@dictionary, 'A'..'Z') { # do nothing if the entry is not matched in the DNA, or vice versa next unless $words =~ /$entry/; # we have a match! (it may be a substring, tha...2371 days ago
Create genome scaffolding with Perl
...) ? $consensusLookup{$bc} : "N"); } sub getMatch { my ($b1, $b2) = @_; r...50, # max number of overlapping bases outside match region }; GetOptions($p...nce} = $alConsensus; # printf(STDERR "Match: $sName\n"); }...2308 days ago
Perl script to run SATSUMA in loop !
#!/usr/bin/perl -w use strict; use File::Temp qw(tempfile); # Usage perl 1by1.pl for SATSUMA analysis # User need to set the reference multifasta file name her...2140 days ago
Installing Porechop on Ubuntu !
...be put in barcode bins if they have a strong match for the barcode on both their...and end (default: a read can be binned with a match at...2105 days ago
2075 days ago