Perl正则替换中哈希值插值失败问题求助

以下代码可正常运行：

my %hash1 = ( 'key1', 54812); 

print ${hash1}{'key1'};       # prints 54812

但在如下场景中出现错误：

my %parameters = ( 'ReferenceCode', 00000 );

my $string = q\$parameters{'ReferenceCode'}\; # 模拟从txt文件读取的内容

$string =~ s/\$(\w+)\{'(\w+)\'\}/${$1}{'$2'}/g;

运行时抛出错误：

Use of uninitialized value in concatenation (.) or string at....

明明%parameters里的ReferenceCode有值，编译器却判定对应值未初始化，该如何解决？

核心问题是正则替换后的字符串无法自动触发Perl的变量插值，${$1}{'$2'}只是被当成普通字符串处理，而非哈希引用。以下是两种可行解决方法：

方法1：用eval解析替换后的字符串 #

通过eval执行替换后的字符串，让Perl解析其中的哈希变量引用：

my %parameters = ( 'ReferenceCode', 00000 );

my $string = q\$parameters{'ReferenceCode'}\;
$string =~ s/\$(\w+)\{'(\w+)\'\}/${$1}{'$2'}/g;

my $result = eval $string;
print $result; # 输出00000

⚠️ 注意：如果$string来自外部文件，必须确保内容安全，避免代码注入风险。

方法2：直接提取哈希名和键名取值（更安全） #

跳过字符串插值步骤，直接从原字符串中提取哈希名和键名，再通过符号引用访问哈希：

my %parameters = ( 'ReferenceCode', 00000 );

my $string = q\$parameters{'ReferenceCode'}\;
if ($string =~ /\$(\w+)\{'(\w+)'\}/) {
    my ($hash_name, $key) = ($1, $2);
    # 通过符号引用获取目标哈希
    my %target_hash = %{$main::{$hash_name}};
    print $target_hash{$key}; # 输出00000
}

这种方法无需eval，安全性更高，适合处理外部来源的字符串。

错误原因 #

正则替换仅完成了字符串内容的替换，生成的${parameters}{'ReferenceCode'}只是一串文本，Perl不会自动将其解析为哈希变量引用。直接使用该字符串时，Perl会尝试将其当作未定义的变量处理，因此抛出未初始化错误。

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