perl - Perl代码段上的问题

Question

我开始学习Perl，并对以下Perl代码部分有疑问。

我知道“ my”用于定义局部变量，“ shift”用于从数组获取head元素。让我感到困惑的是，下面的代码段中数组来自哪里。

此外，my @positives = keys %{$lab1->{$cate1}}代表什么？

preData($cate1, $lab1)

sub preData
{
  my $cate1 = shift;
  my $lab1 = shift;

  my @positives = keys %{$lab1->{$cate1}};
}

Answer 1

$lab1是包含其他哈希引用的哈希引用。 $cate1是某种类别键（我猜是这样）。

$lab1->{$cate1}是哈希引用。通过在其周围放置%{ ... }取消引用它时，会返回一个哈希值。然后将此哈希传递给keys()函数，该函数返回该哈希中的键的列表。因此，@positives是$lab1->{$cate1}哈希引用所引用的哈希中的键的数组。

编辑：在处理这些嵌套结构时，您可能会发现通过查看数据表示更容易理解正在发生的事情。在脚本顶部，添加use Data::Dumper。然后在my $lab1...和my @positives...行之间添加：

print Dumper($lab1);
print Dumper($lab1->{$cate1});

设置 @positives数组后，添加：

print Dumper(\@positives);

这样可以使您更好地可视化数据，并希望更好地了解Perl结构。