my ( %alph_hash, $alph );
%alph_hash = (
- DNA => [ qw( A T C G ) ],
- DNA_AMBI => [ qw( A G C U T R Y W S M K H D V B N ) ],
- RNA => [ qw( A U C G ) ],
- RNA_AMBI => [ qw( A G C U T R Y W S M K H D V B N ) ],
- PROTEIN => [ qw( F L S Y C W P H Q R I M T N K V A D E G ) ],
+ DNA => [ qw(A T C G) ],
+ DNA_AMBI => [ qw(A G C U T R Y W S M K H D V B N) ],
+ RNA => [ qw(A U C G) ],
+ RNA_AMBI => [ qw(A G C U T R Y W S M K H D V B N) ],
+ PROTEIN => [ qw(F L S Y C W P H Q R I M T N K V A D E G) ],
);
- if ( exists $alph_hash{ $type } ) {
- $alph = $alph_hash{ $type };
+ if ( exists $alph_hash{ uc $type } ) {
+ $alph = $alph_hash{ uc $type };
} else {
die qq(ERROR: Unknown alphabet type: "$type"\n);
}