Perl哈希遍历匹配数组索引异常：仅返回单个值的问题求助

问题背景 #

需要遍历带数字键的哈希%grupos的每个键，根据数组@hibridaciones对应索引（键值减1）的值是sp/sp2/sp3，分别从cov.txt中匹配C1/C2/C3开头的行并提取数值输出，但当前代码仅返回单个值，无法获取所有目标结果。

示例数据 #

• 哈希%grupos：(1 => 'A', 2 => 'G', 3 => 'J')
• cov.txt内容：

HS0.32 
CS0,77
CD0.62
CT0,59 
C10,77
C20,62
C30,59
OS0.73
OD0,6
O10,73
O20,6 
NS0.75

当前使用的代码 #

@hibridaciones=("sp","sp2","sp3")
%grupos=(1,'A',2,'G',3,'J')
open (covalencia,"<", "cov.txt") or die "$!\n";
print keys %grupos;
keys %grupos; 
foreach my $z (keys %grupos) { 
    print "\n$z\n";
    if (@hibridaciones[my $z-1] eq "sp") {
        while (my $line = <covalencia>) {
            if ( $line=~/^C1/) {
                $line =~s/C1//;
                $radio=$line;
                print "\n$radio";
            }
        }
    }
    if (@hibridaciones[my $z-1] eq "sp2") {
        while (my $line = <covalencia>) {
            if ($line=~/^C2/) {
                $line =~s/C2//;
                $radio=$line;
                print "\n$radio";
            }
        }
    }
    if (@hibridaciones[my $z-1] eq "sp3") {
        while (my $line = <covalencia>) {
            if ($line=~/^C3/) {
                $line =~s/C3//;
                $radio=$line;
                print "\n$radio";
            }
        }
    }
}
close (covalencia);

问题根源 #

1. 文件句柄读取到末尾：第一次循环读取cov.txt时，文件指针会移动到文件末尾，后续循环无法再读取任何内容，这是只返回单个值的核心原因。
2. 语法冗余：@hibridaciones[my $z-1]中的my是多余的，规范写法应为$hibridaciones[$z-1]。
3. 重复代码过多：三个if分支逻辑高度重复，没有复用性。

修正方案 #

先把cov.txt中的目标数据预读到哈希中，后续直接通过键值对快速查找，避免重复读取文件：

修正后的代码 #

my @hibridaciones = ("sp", "sp2", "sp3");
my %grupos = (1 => 'A', 2 => 'G', 3 => 'J');

# 预读取cov.txt，将C1/C2/C3对应的值存入哈希
my %covalencia_data;
open my $covalencia_fh, "<", "cov.txt" or die "$!\n";
while (my $line = <$covalencia_fh>) {
    chomp $line; # 去除换行符，避免输出多余空行
    if ($line =~ /^C([1-3])(.*)/) {
        # 建立sp->C1、sp2->C2、sp3->C3的映射关系
        $covalencia_data{"sp$1"} = $2;
    }
}
close $covalencia_fh;

# 遍历哈希处理每个键（sort保证按数字键顺序输出）
foreach my $z (sort keys %grupos) {
    my $hybrid_type = $hibridaciones[$z-1];
    my $target_value = $covalencia_data{$hybrid_type};
    print "键$z（对应$hybrid_type）的数值：$target_value\n";
}

代码说明 #

1. 预存数据：仅读取一次cov.txt，把需要的C1/C2/C3对应值存入%covalencia_data，后续直接取值，避免重复IO操作。
2. 简化匹配：通过正则表达式直接提取C开头行的类型和数值，建立杂化类型与数值的直接映射。
3. 有序遍历：用sort keys %grupos保证按数字键的顺序处理（哈希默认键顺序是随机的）。

输出结果 #

运行修正后的代码会输出：

键1（对应sp）的数值：0,77
键2（对应sp2）的数值：0,62
键3（对应sp3）的数值：0,59

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