Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    
    use Data::Dumper;
    print Dumper \%needles;
    
  2. or download this
    $ ./973643.pl 'AAAAA AAACACA CAACAAA' AAA AAC ACA CAA
    $VAR1 = {
    ...
              'CAA' => 2,
              'AAA' => 5
            };