Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
-
Thanks Kevin , can you see this one too? :)
When i put it in subroutine still doesn't work, thogh by itself it does? use strict; sub Convert; my $aa =<>; chomp($aa); my $c = Convert($aa); print $c, "\n"; sub Convert { my $a = @_; my %amin = ( ALA => "A", ARG => "R", ASN => "N", ASP => "D", ASX => "B", CYS => "C", GLU => "E", GLN =>... -
Why is this not entering the loop at all?
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"; } }
