Perl哈希键的foreach语法解析：两种写法差异及报错原因

咱们先把你的问题拆得明明白白——你遇到的其实是Perl里普通哈希和哈希引用的核心区别，还真跟变量作用域、my/our关键字脱不了干系！

先看你写的两段遍历代码：

能运行的写法 #

foreach $skosfile1type ( keys %{skosFile} ){ print ... }

这里的skosFile是没有$前缀的裸词，在Perl默认的非严格模式下，它会被当成字符串处理，自动映射到当前包（默认是main）里的包哈希%main::skosFile——刚好就是你之前定义的那个哈希，所以能正常运行。但这种写法非常不规范，只要你开启use strict;（强烈建议所有Perl代码都加这个），它会直接报错，因为严格模式不允许裸词随意指代变量。

无法运行的写法 #

foreach $skosfile1type ( keys %{$skosFile} ) { print ... }

这里的$skosFile是标量变量，%{$skosFile}的作用是把这个标量里存储的哈希引用“解包”成普通哈希，再取它的键。但问题来了：你之前定义的是普通哈希%skosFile，根本没给$skosFile这个标量赋值啊！它是一个未定义的undef，用undef来解包哈希自然会报错（通常是Not a HASH reference）。

说白了，$在这里的作用是标识这是一个标量变量，而你混淆了%skosFile（普通哈希）和$skosFile（独立的标量）——这俩完全是两个毫不相干的变量！

关于my/our的作用 #

你代码里的变量都没加my或our，默认属于包作用域的全局变量。如果加上my，把变量限定在当前作用域内：

my %skosFile;
my $skosName = 'foo';
my $skosId = 'abc123';
$skosFile{'type'}{$skosId} = $skosName;

再开启use strict; use warnings;，第一种写法里的%{skosFile}会直接报错（严格模式禁止裸词指代变量），第二种写法也会立刻提示$skosFile未初始化，能帮你快速定位问题，不至于稀里糊涂靠Perl的松散解析运行代码。

正确的遍历写法 #

如果你用的是普通哈希%skosFile，直接写就好：

foreach my $skosfile1type (keys %skosFile) {
    print "$skosfile1type\n";
}

如果想用哈希引用的方式，得先把哈希转成引用：

my $skosFile_ref = \%skosFile; # 创建哈希引用
foreach my $skosfile1type (keys %{$skosFile_ref}) {
    print "$skosfile1type\n";
}
# 或者更简洁的语法：keys %$skosFile_ref

总结一下 #

1. 第一种写法能运行纯属Perl非严格模式的“宽容”，但不规范，生产环境绝对不能这么写；
2. 第二种写法失败是因为你误用了未定义的标量$skosFile，它和你定义的哈希%skosFile完全是两个变量；
3. 加my/our+开启strict/warnings是Perl编程的基本操作，能帮你避免绝大多数这类变量混淆的低级错误。

内容的提问来源于stack exchange，提问作者James Peter McConnell