Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...

printf "captured %d codon sequences: %s \n\n",
       $n_captured, join ' ', map qq{'$_'}, @captures;
  2. or download this
    c:\@Work\Perl\monks\undergradguy>perl extract_dna_seq_1.pl
sequence 'GATTACA'
...
captured 5 sequences: 'A' 'ATCG' 'a' 'AATCCGCTGATT' 'act'

captured 2 codon sequences: 'AATCCGCTGATT' 'act'