Perl数组实现氨基酸查询程序的匹配变量输出问题

你当前的代码存在几个语法和逻辑问题，无法实现匹配单字母输出对应全称的需求，以下是修正后的可运行实现，完全兼容你想保留数组存储合法编码的设计思路：

use warnings;
use strict;

print "请输入氨基酸单字母编码，程序将返回对应的氨基酸全称：\n";
chomp(my $aminoacid = <STDIN>);
my $aminoacid_is  = guessaa($aminoacid);
print "对应氨基酸：$aminoacid_is\n" if defined $aminoacid_is;

sub guessaa {
    # 存储所有合法氨基酸单字母编码的数组
    my @aminoacid_array = ("A","C","D","E","F","G","H","I","K","L","M","N","O","P",
                            "Q","R","S","T","V","W","Y");
    # 键值对映射单字母和对应全称，无需为每个单字母定义独立标量
    my %aa_name = (
        A => "Alanine（丙氨酸）",
        C => "Cysteine（半胱氨酸）",
        D => "Aspartic_acid（天冬氨酸）",
        E => "Glutamic_acid（谷氨酸）",
        F => "Phenylalanine（苯丙氨酸）",
        G => "Glycine（甘氨酸）",
        H => "Histidine（组氨酸）",
        I => "Isoleucine（异亮氨酸）",
        K => "Lysine（赖氨酸）",
        L => "Leucine（亮氨酸）",
        M => "Methionine（甲硫氨酸/蛋氨酸）",
        N => "Asparagine（天冬酰胺）",
        O => "Stop（终止密码子）",
        P => "Proline（脯氨酸）",
        Q => "Glutamine（谷氨酰胺）",
        R => "Arginine（精氨酸）",
        S => "Serine（丝氨酸）",
        T => "Threonine（苏氨酸）",
        V => "Valine（缬氨酸）",
        W => "Tryptophan（色氨酸）",
        Y => "Tyrosine（酪氨酸）",
    );
    # 修正原代码参数接收错误：子例程参数存于特殊数组@_中
    my ($input_code) = @_;
    # 兼容小写输入，统一转大写匹配
    $input_code = uc($input_code);
    
    foreach my $valid_code (@aminoacid_array) {
        if ($valid_code eq $input_code) {
            return $aa_name{$valid_code};
        }
    }
    # 非法输入返回提示
    return "无效的氨基酸单字母编码";
}

原代码问题说明 #

• 语法错误：子例程接收参数的写法my($aa) = @;有误，Perl 子例程的传入参数默认存储在特殊数组@_中，正确写法为my ($aa) = @_;。
• 设计缺陷：你原本想为每个单字母定义同名变量、匹配后动态取变量值的思路属于符号引用，在use strict开启的默认安全模式下会直接报错，且这种写法冗余度极高，后续维护需要修改20余处独立变量，非常容易出错。这类键值一一对应的场景，Perl 标准实现方式是使用哈希存储映射关系，查找效率远高于循环遍历数组。
• 逻辑缺失：原代码匹配成功后仅打印了单字母编码本身，没有返回对应全称，主程序中接收的子例程返回值始终为空。
• 拼写笔误：数组名@aminoacid_arryay为拼写错误，正确拼写为@aminoacid_array。

补充：如果一定要坚持使用独立变量+动态取变量名的写法（极不推荐，存在安全风险），可以临时关闭strict的refs检查实现，示例代码片段如下：

sub guessaa {
    my @aminoacid_array = ("A","C","D","E","F","G","H","I","K","L","M","N","O","P",
                            "Q","R","S","T","V","W","Y");
    my($A)="Alanine";
    my($C)="Cysteine";
    my($D)="Aspartic_acid";
    my($E)="Glutamic_acid";
    my($F)="Phenylalanine";
    my($G)="Glycine";
    my($H)="Histidine";
    my($I)="Isoleucine";
    my($K)="Lysine";
    my($L)="Leucine";
    my($M)="Methionine";
    my($N)="Asparagine";
    my($O)="Stop";
    my($P)="Proline";
    my($Q)="Glutamine";
    my($R)="Arginine";
    my($S)="Serine";
    my($T)="Threonine";
    my($V)="Valine";
    my($W)="Tryptophan";
    my($Y)="Tyrosine";
    
    my ($aa) = @_;
    no strict 'refs';
    foreach my $code (@aminoacid_array) {
        if ($code eq uc($aa)) {
            return $$code;
        }
    }
    use strict 'refs';
    return "无效的氨基酸单字母编码";
}

内容的提问来源于stack exchange，提问作者ulisesrc