Perl program to implement sliding window !
#!/usr/bin/perl -w my $filename = 'data.txt'; open(my TR, '2909 days ago
2909 days ago
Needleman-Wunsch Algorithm in Perl
#!/usr/bin/perl # USAGE: perl nw.pl HEAGAWGHEE PAWHEAE BLOSUM50.txt -8 # See: "Biological sequence ana...or any gap my %BLOSUM50 = (); my @aalist = (); # read substitution matrix open i...2901 days ago
Count GC Content in nucleotide sequence with Perl
#!/usr/bin/perl -w ### Usage: get_gc_content.pl...le = $ARGV[0]; $out_file = "gc_out.txt"; unless ( open(IN, "$fasta_file") ) {...sta file: $fasta_file\n\n"; exit; } unless ( open(O...2901 days ago
Perl script to extract lines with matching ids !!
#!/usr/bin/perl use strict; use warnings; my %patterns; #USAGE: perl extactByIds.pl Idsfile1 file2 > Result # Open file and get patterns to search for open(my $fh2,"2870 days ago
Perl script to extract fasta sequence by matching name/ids !!
#!/usr/bin/perl use strict; use warnings; use Text::Trim qw(trim); #Usage perl...hift @ARGV; my $out = shift @ARGV; my %select; open LINE, "$list" or die; while...t "Total Ids $size\n"; close LINE; $/ = "\n>"; open O...2870 days ago
2867 days ago
Perl subroutine to read and write files
# Input output (InOut) the file # usage: # @array = InOut('read',$file) # $string = InOut('read',$fil...sub InOut { my($bit,$file,$data) = @_; if($bit eq 'read'){ open InOut,"< $file" or die "Cannot open $...2861 days ago
Install ATOM editor on Elemantory OS / Ubuntu
#Download ATOM deb file from https://atom.io/ https://atom.io/download/deb (base) bioqueen@bioqueen-Lenovo-ide...ed, home, i, init, install, link, linked, links, list, ln, lns, login, ls, open,...1171 days ago
2688 days ago