Help for this page

Select Code to Download


  1. or download this
    my %endpoints;
$endpoints{ $-[0] } = $+[0] 
    while $chromosome =~ m[(CG.*?AT)]g;
  2. or download this
    my %endpoints;
$endpoints{ $-[0] - 1 } = $+[0] - $-[0] - 1
...
    print substr( $chromosome, $begin, $end ), "\n\n";
}
  3. or download this
    my @exons;
push @exons, eval "\\substr( \$chromosome, 
...
for( @exons ) {
    print $$_, "\n\n";
}