Perl跨文件访问哈希问题：为何无法获取regVal的键？

问题现象 #

在P4site.pm中用our声明了%regVal哈希，主程序通过use P4site引入模块后，尝试打印哈希内容时，Data::Dumper输出空哈希，循环遍历键值无结果，同时出现警告：

Name "P4site::regVal" used only once: possible typo at allUtilsCopyUserRunMach.pl line 14.

问题原因 #

1. 模块格式不规范：Perl模块必须满足两个核心要求：开头要有package 模块名;声明，文件末尾必须以1;结尾（让模块加载时返回真值，确认加载成功）。你提供的P4site.pm缺少这两项，导致模块加载失败，哈希变量根本没被正确导入主程序。
2. 哈希定义不完整：P4site.pm里的%regVal哈希存在未闭合的大括号，语法错误直接导致模块加载失败。
3. 主程序语法错误：循环中使用了错误的变量引用方式%{$P4site::{regVal}}，正确的引用应为%P4site::regVal或%{$P4site::regVal}。

解决步骤 #

步骤1：修复P4site.pm模块 #

补全包声明、闭合哈希结构，并添加模块结尾的1;：

package P4site;
use strict;
use warnings;

our %regVal = (
    'wint' => {
        'Bangalore' => {
            'regSuffix' => 'reg_run',
            'P4PORT' => {
                'rd' => '9876',
                'pv' => '1991',
            },
        },
        'Noida' => {  
             'activeRelease' => {
                'rd' => {
                         '43.1' => ['rc011', 'nfm'],
                         '98.3' => ['rc008', 'nfm'],
                         '57.3' => ['rc001', 'nfm'],
                 },
                'pv' => {
                         '43.1' => ['rc011', 'nfm'],
                         '98.3' => ['rc008', 'nfm'],
                         '57.3' => ['rc001', 'nfm'],
                 }
            }
        }
    }
);

1; # 模块必须以1结尾，确保加载成功

步骤2：修正主程序中的循环代码 #

替换错误的引用方式，同时修正拼写错误：

use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/modules";
use P4site;
use Data::Dumper;

# 正确打印哈希内容
print Dumper(\%P4site::regVal);

# 正确遍历哈希的键
foreach my $branches (sort keys %P4site::regVal)
{
    print "$branches is branches\n"; # 修正拼写：bracnhes → branches
}

验证结果 #

修复后运行主程序，会正确输出%regVal的完整结构，循环会打印出wint这个键，警告信息完全消失。

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