Needleman-Wunsch Algorithm in Perl
...usage: $0 \n" unless @ARGV == 4; # get sequences, matrix and gapcost from command line my ($seq1, $seq2, $smfile, $gapcost) = @ARGV; # scoring scheme (instead of using fixe...2927 days ago
2097 days ago
Perl script for Smith-Waterman Algorithm
...man Algorithm # usage statement die "usage: $0 \n" unless @ARGV == 2; # get sequences from command line my ($seq1, $seq2) = @ARGV; # scoring scheme my $MATCH = 1; #...972 days ago