Help for this page

Select Code to Download


  1. or download this
    my $s1='TCGAGTGGCCATGAACGTGCCAATTG';
my $s2='ATGATCCTG';
...
for (my $i=0; $i+$len+10 <= length $s2; ++$i) {
    print substr($s2, $i, $len+10),"\n";
}
  2. or download this
    Matches:
TCGAGTGGCCATGAACGTG
...
TGGCCATGAACGTGCCAAT
GGCCATGAACGTGCCAATT
GCCATGAACGTGCCAATTG