有没有办法在Perl中获取哈希中的数组名称？

Question

我在Perl程序中使用了几个相同结构的数组,在某些时候,我需要输出名称.即,我需要'array_name'从@array_name.
我该怎么做？如果这是不可能的,你能建议任何方便的"相对"存储数组及其名称的方法吗？
谢谢.

Answer 1

这肯定是可能的,但我建议将数组存储为散列中的匿名数组引用:

my %arrays = (
    'array_name' => [ qw(contents of array array_name) ],
    # etc
)

然后,检索名称为的数组$some_array_name:

my @array = @{$arrays{"$some_array_name"}};