Perl program to implement sliding window !
#!/usr/bin/perl -w my $filename = 'data.txt'; open(my TR, '2927 days ago
2927 days ago
Needleman-Wunsch Algorithm in Perl
#!/usr/bin/perl # USAGE: perl nw.pl HEAGAWGHEE PAWHEAE BLOSUM50.txt -8 # See: "Bi...st; # for any gap my %BLOSUM50 = (); my @aalist = (); # read substitution matrix open...2919 days ago
Count GC Content in nucleotide sequence with Perl
#!/usr/bin/perl -w ### Usage: get_gc_content.pl...ta_file = $ARGV[0]; $out_file = "gc_out.txt"; unless ( open(I...ad fasta file: $fasta_file\n\n"; exit; } unless ( open(...2919 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,"2888 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 extr...a = shift @ARGV; my $out = shift @ARGV; my %select; open L...print "Total Ids $size\n"; close LINE; $/ = "\n>"; open...2888 days ago
2885 days ago
Perl subroutine to read and write files
# Input output (InOut) the file # usage: # @array = InOut('read',$file) # $string = InO...my($bit,$file,$data) = @_; if($bit eq 'read'){ open InOut,"< $file" or die "Cannot open...2879 days ago
Install ATOM editor on Elemantory OS / Ubuntu
#Download ATOM deb file from https://atom.io/ https://atom.io/download/deb (base) bioquee...featured, home, i, init, install, link, linked, links, list, ln, lns, login, ls, open,...1189 days ago
2706 days ago