Help for this page

Select Code to Download


  1. or download this
    my $offs = 0;
while (my $fm= substr($DNA1, $offs, 4)) {
    $offs += 4;
    ...
}
  2. or download this
    for (my $offs=0; my $fm=substr($DNA1, $offs, 4); $offs+=4 ) {
    ...
}