Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...
      my $endposition = pos($Dna1) + 1;
      print "Pattern C[AG]G matched $1 ending at $endposition\n";
}

Select or download this

Pattern C[AG]G matched CAG ending at 6
Pattern C[AG]G matched CGG ending at 11
Pattern C[AG]G matched CAG ending at 38
Pattern C[AG]G matched CGG ending at 48