Perl报错‘Can't declare scalar dereference in my’原因排查

Perl 的my声明语句不支持直接对符号引用（比如${'file'.$i.'size'}这种动态拼接的变量名形式）进行变量声明。my要求后面跟的是明确的标识符，而非通过表达式动态生成的变量引用，这就是报错“Can't declare scalar dereference in my”的根本原因。

Perl 里不推荐使用动态命名的变量，更规范且易维护的做法是用哈希表存储这类动态键值对：

my %file_sizes;
for(my $i = 0; $i <= 3; $i++) {
    if(/* some condition */) {
        $file_sizes{"file${i}size"} = 0;
    }
}

后续访问对应值时，直接通过哈希键调用即可：$file_sizes{'file0size'}。

如果非要使用动态变量（不推荐，易引发作用域冲突与维护问题），可以先声明变量名，再通过符号引用赋值：

for(my $i = 0; $i <= 3; $i++) {
    if(/* some condition */) {
        my $var_name = "file${i}size";
        no strict 'refs'; # 必须关闭严格引用检查
        $$var_name = 0;
    }
}

注意：关闭strict 'refs'会带来安全与维护隐患，非特殊场景优先选择哈希方案。

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