Perl脚本维护疑问：多维哈希用途及配置内容访问方法

问题1：代码行$info{$name}{$b}{address}=$address的作用 #

这行代码是将配置文件每行的三列数据，以三层嵌套哈希的结构存入%info变量：

• 第一层哈希的键为配置文件第一列的Name（如Adam）
• 第二层哈希的键为配置文件第二列的son's_name（如aaa）
• 第三层固定以address作为键，对应的值是配置文件第三列的地址内容（如xxx）
  最终实现Name -> son's_name -> address的层级映射存储，方便后续通过层级键快速定位数据。

问题2：这是否属于哈希结构？ #

是的，这属于Perl的**嵌套哈希（多层哈希）**结构。Perl支持哈希的嵌套，当你使用$info{$name}{$b}这种写法时，Perl会自动为$info{$name}创建一个匿名哈希引用，无需手动声明，该语法简化了多层哈希的操作流程。

问题3：如何在主代码中访问已解析的配置内容？ #

首先需要修正原代码中的两处关键问题：

1. 解析子例程parseCfg中缺少行内容分割逻辑，需在循环内添加my @fields = split;来拆分每行的三列数据，否则@fields为空，无法读取配置；
2. 主循环里的$a=$info{}{}{};是无效写法，需通过遍历哈希层级来获取数据。

修正后的访问示例代码 #

my $msg="";
my @names;
my %info=parseCfg($file);

# 遍历所有主Name
foreach my $name (@names) {
    $msg="-I-: Working on $name\n";
    print $msg;

    # 遍历当前Name下所有的son's_name
    foreach my $son_name (keys %{$info{$name}}) {
        # 获取对应的address
        my $address = $info{$name}{$son_name}{address};
        print "-I-: Son's name: $son_name, Address: $address\n";
    }
}

sub parseCfg {
    my $file=$_[0];
    if (-e $file) {
        open (F,"<$file") or die "Fail to open $file\n";
        $msg="-I-: Reading from config file: $file\n";
        print $msg;
        print LOG $msg; # 需确保LOG文件句柄已提前定义
        while (<F>) {
            chomp; # 去除行尾换行符
            my @fields = split; # 拆分当前行为三列
            my ($name,$b,$address)=@fields;
            push (@names,$name);
            
            $info{$name}{$b}{address}=$address;
        }
        close F;
    } else {
        die "-E-: Missing config file $file\n";
    }
    return %info;
}

针对你提供的配置文件，运行后会输出：

-I-: Working on Adam
-I-: Son's name: aaa, Address: xxx
-I-: Working on Billy
-I-: Son's name: bbb, Address: yyy
-I-: Working on Cindy
-I-: Son's name: ccc, Address: sss

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