Help for this page

Select Code to Download


  1. or download this
       my $tag = $f->primary_tag;
  2. or download this
        push @{$sorted_features{$tag}}, $f if ($tag =~ /CDS|genes|primer_b
+inds|sources/);
  3. or download this
    my %sorted_features;
my %want = map { $_ => 1 } qw/CDS genes primer_binds sources/;
...
    my $tag = $f->primary_tag;
    push @{$sorted_features{$tag}}, $f if( $want{$tag} );
}