arrays - Perl，将数组 : adding and removing keys, 的散列添加到数组中，全部在 while 循环中

Question

我有一个散列，它应该包含链接到它们自己的数组的某些键。更具体地说，散列键是质量值，数组是序列名称。如果已经有该质量的数组，我想将序列名称添加到与相关质量相关联的数组中。如果没有，我想创建一个并将序列名称添加到其中。所有这些都是在一个 while 循环中完成的，一个一个地遍历所有序列。

我已经尝试做类似 Perl How do I retrieve an array from a hash of arrays? 中的事情但我似乎做对了。

我刚收到这些错误消息:标量值 @{hash{$q} 在 asdasd.pl 第 69 行最好写成 ${hash{$q}。全局符号“@q”需要明确的包名称 asdasd.pl 第 58 行。还有其他一些。

这是我尝试过的一个例子:

my %hash;
while (reading the sequences) {
    my $q = "the value the sequence has";
    my $seq = "the name of the sequence";

    if (exists $hash{$q}) {
        push (@{$hash{$q}}, $seq);
    } else {
        $hash{$q} = \@q;
        $hash{$q} = [$seq];
        next;
    }
}

这显然不应该是一个非常复杂的问题，但我是 perl 的新手，这种问题感觉很难。我从不同的地方用谷歌搜索了这个，但似乎有一些我没有意识到的东西，而且它可能也很明显。

Answer 1

您可以使用 perl 调用的autovivification 来使这变得非常简单。您的代码不需要中央 if 语句。您可以将其归结为:

    push @{ $hash{$q} }, $seq;

如果特定键在散列中还不存在，perl 将自动生成它，因为它可以推断出您需要此处的数组引用。

您可以通过谷歌搜索找到更多关于自动激活的资源。这是一个足够独特的词，绝大多数点击似乎都是相关的。 :-)