Help for this page

Select Code to Download


  1. or download this
    my $alt = join '|', reverse sort <$matches_fh>;
my $re = qr{(?x: ^ > ( $alt ) )};
my %count;
/$re/ && ++$count{$1} while <$fasta_fh>;
  2. or download this
    #!/usr/bin/env perl

...
unwanted data
>XYZ12_2
unwanted data
  3. or download this
    { Gloin1 => 2, XYZ => 1, XYZ1 => 2, XYZ12 => 3 }