Help for this page

Select Code to Download


  1. or download this
    my $s = 'AGCTTCTTGCTTCTTGC';
#         ~~~~~~~~~
...
while ($s =~ /(?=GCTTCTTGC)/g) {
    say pos $s;
}
  2. or download this
    my $s = 'AGCTTCTTGCTTCTTGC';
my $pos = -1;
while (-1 != ($pos = index $s, 'GCTTCTTGC', $pos + 1)) {
    say $pos;
}
  3. or download this
    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,