在Perl中如何快速访问子程序返回的哈希中的指定值？

原理说明 #

Perl 中直接写 (hash()){One} 无法生效的核心原因是：子程序返回哈希时，实际返回的是扁平化的键值对列表，而非哈希类型结构。只有哈希变量、哈希引用可以使用{键名}的方式访问，普通列表仅支持[下标]方式取值。

推荐的简洁写法 #

1. 最优方案：修改子程序返回哈希引用 #

这是Perl开发的通用最佳实践，既避免大哈希扁平化拷贝的性能损耗，也能直接实现链式访问，可读性最高：

sub hash {
    my %hash = (
        One   => 1,
        Two   => 2,
        Three => 3,
    ); 
    return \%hash; # 返回哈希引用，或者直接构造匿名哈希返回 return { ... }
}

print hash()->{One}; # 直接输出1，语法简洁清晰

2. 无法修改原子程序返回值时的替代方案 #

如果必须保留原子程序返回平展开哈希的逻辑，可以选择以下两种可读性更高的写法：

• 使用do块封装临时变量，完全不需要引用技巧，逻辑直观：

  print do { my %tmp = hash(); $tmp{One} };
  

• 使用+强制解析匿名哈希，比你用到的0+写法表意更清晰：

  # +号的作用是强制Perl将后面的{识别为匿名哈希构造器，而非代码块开头，避免语法报错
  print +{hash()}->{One};
  

补充说明 #

你之前用到的${{hash()}}{One}其实是Perl社区的惯用写法，核心逻辑是把返回的键值对列表构造为匿名哈希，再解引用取值，熟悉Perl的开发者都能快速理解，只是对新手不够友好。

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