Why is this not entering the loop at all? 1

[axelro]

my $aa = <>;

my %a = (
ALA => "A",
ARG => "R",
ASN => "N",
ASP => "D",
ASX => "B",
CYS => "C",
GLU => "E",
GLN => "Q",
GLX => "Z",
GLY => "G",
HIS => "H"
);

foreach my $key (keys %a) {
if ($aa eq $key) {
my $b = $amin{key};
print $b, "\n";
}
}

 

[KevinADC]

It must be entering the loop, but maybe you need to chomp() $aa before trying to match one of the hash keys.

$aa = <>;
chomp($aa);

------------------------------------------
- Kevin, perl coder unexceptional!

 

[travs69]

Where is $amin{} coming from. Please do not use $a, or $b as variables and use strict!!

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;