Help for this page

Select Code to Download


  1. or download this
    #!usr/bin/perl-w
use strict;
my $a=AAATGCCTT;
...
print"\n   No. of matched positions=$match.\n
       No. of non-matched positions=$nonmatch.\n";
exit;
  2. or download this
    No. of matched positions=3.
No. of non-matched positions=6.