Perl中是否支持使用变量的值作为数组名动态创建数组？

这个需求技术上存在可实现的野路子，但99%的场景下都绝对不应该用动态生成变量名的方案，Perl官方和社区都明确不推荐这种写法，用哈希实现同类需求是唯一安全、规范的选择。

你写的my @{$input1};本身就是非法语法：

1. my 关键字仅用于声明静态命名的词法作用域变量，不支持以变量解析结果作为声明的变量名
2. 现代Perl开发默认开启use strict 'refs'检查，这种用变量值当变量名的「软引用」写法会直接抛出运行时错误，禁止执行。

如果强行关闭严格模式的引用检查，可以实现你要的动态创建指定名称数组的效果，代码如下：

# 关闭引用的严格检查，生产环境绝对不要开这个口子
no strict 'refs';

my $input1 = "AAA";
my $input2 = "BBB";

# 注意：这里创建的是包全局变量，不是my声明的词法变量
@{$input1} = (1, 2, 3);
@{$input2} = ("a", "b", "c");

print @AAA; # 正常输出123

这种写法的问题非常多：

• 所有动态生成的变量都是全局变量，不受词法作用域限制，很容易污染其他代码的命名空间
• 变量名完全由运行时的变量值决定，如果值和现有变量重名会直接覆盖原有数据，出问题极难排查
• 代码没有静态可检查性，全局搜索@AAA根本找不到变量定义位置，后期维护成本极高
• 无法方便地枚举、管理所有动态生成的数组。

要实现「根据动态名称存储独立数组」的需求，直接用Perl原生的哈希结构即可，完全不需要搞动态变量名：

use strict;
use warnings;

my $input1 = "AAA";
my $input2 = "BBB";
my %dynamic_arrays; # 用哈希统一管理所有动态生成的数组

# 创建对应名称的数组，存为哈希值的数组引用
@{ $dynamic_arrays{$input1} } = (1, 2, 3);
@{ $dynamic_arrays{$input2} } = ("a", "b", "c");

# 访问操作和普通数组完全一致
print @{ $dynamic_arrays{AAA} }; # 输出123
push @{ $dynamic_arrays{BBB} }, "d"; # 往BBB对应的数组追加元素

这种写法的优势很明显：

• 完全符合strict/warnings的开发规范，没有语法风险
• 所有动态数组都收敛在%dynamic_arrays的命名空间下，绝对不会和其他变量冲突
• 可以非常方便地做遍历、存在性检查、删除等管理操作，比如要遍历所有生成的数组，只要遍历哈希的键即可。

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