启用strict refs时字符串无法作为HASH引用，如何用变量实现哈希引用？

错误原因 #

你的代码存在两个核心问题：

• $config的键被错误设置为'%test_value'（带%前缀的字符串），和变量$args的值'test_value'不匹配；
• 访问哈希元素时使用%$args，这是尝试将字符串test_value当作哈希引用（符号引用），而use strict 'refs'会直接禁止这种不安全操作，这就是报错的直接原因。

修正方案 #

1. 修正$config的键：去掉键名的%前缀，让键值与$args的内容匹配；
2. 使用Perl标准的哈希引用访问语法：用->操作符访问嵌套的哈希引用元素。

修正后的代码 #

use strict;
use warnings;

my $config = {'test_value' => {'value' => '1'}};
    
my $args = 'test_value';    

print $config->{$args}{'value'}; # 输出结果：1

补充说明 #

Perl中访问哈希引用的元素时，$ref->{$key}是标准写法，嵌套的哈希引用可简化为$ref->{$key1}{$key2}。你原来的$$config{%$args}写法属于符号引用，在strict模式下被禁用，因为这类写法会导致代码难以维护且存在安全风险。

内容的提问来源于stack exchange，提问作者Karthik Kasi D