如何将数组解析为数组的散列？

Question

我是一个初学者(一个潮湿的实验室生物学家，在我的生命中第一次不得不对生物信息学做一些改动)，今天我陷入了一个问题:如何将数组解析为perl中的数组散列？

这不管用：

@myhash{$key} = @mytable;

我终于用for循环解决了我的问题：

for(my $i=0;$i<=$#mytable;$i++){$myhash{$key}[$i]=$mytable[$i]};

当然，它有效，它做了我需要做的事情，但在我看来，这似乎不是解决我的问题，而是一种规避它的方法.当某些事情不起作用时，我喜欢理解为什么.

非常感谢您的建议！

Answer 1

正如Grinnz所提到的，您可以保存对数组的引用，但是数组上的任何更改都将反映在散列中(它是相同的数据)。

例如，如果在循环中重用相同的数组，那么哈希中的数据将反映循环的最后一次迭代。

在这种情况下，您将需要存储在散列中的数组副本。

@{$hash{$key}} = @array;

编程Perl:数据结构

Answer 2

如果询问如何将数组作为散列的一个值，则可以通过对数组的引用来实现这一点，因为引用是标量，散列的值必须是标量。这是用反斜杠操作符完成的。

$myhash{$key} = \@mytable;

您描述的for循环通过自动生动化创建这样的引用，因为$myhash{$key}[0]在$myhash{$key}上创建数组引用以分配给它的索引。还请注意，引用和复制每个值的区别在于，在前一种情况下，在事实发生后对数组的更改也会影响通过散列值引用的值，反之亦然。

$mytable[5] = 42; # $myhash{$key}[5] is also changed