从 Perl 中的嵌套数据结构中提取非同级哈希值数组

Question

这是我由 Data::Dumper->Dumper 创建的数据结构：（

$VAR1 = {
          'name' => 'genomic',
          'class' => [
                     {
                       'reference' => [
                                      {
                                        'name' => 'chromosome',
                                        'referenced-type' => 'Chromosome'
                                      },
                                      {
                                        'name' => 'chromosomeLocation',
                                        'referenced-type' => 'Location'
                                      },
                                      {
                                        'name' => 'sequence',
                                        'referenced-type' => 'Sequence'
                                      },
                                      {
                                        'name' => 'sequenceOntologyTerm',
                                        'referenced-type' => 'SOTerm'
                                      }
                                    ],
                     }
                   ],
        };

为了清晰起见，进行了修剪）

我想在单行中返回对引用下的每个名称值的数组的引用。

目前我有

$class->[0]{reference}[0..3]{name}

但无济于事。

此外，此示例有四个索引为 0..3 的同级哈希，如何独立于元素数量来表示整个数组？

Answer 1

不幸的是，没有一个简单的语法可以做到这一点。您必须使用 map:

my $array_ref = [
    map { $_->{name} } @{ $class->[0]{reference} }
];

然后，如果您转储 $array_ref，您将看到它包含：

$array_ref = [
          'chromosome',
          'chromosomeLocation',
          'sequence',
          'sequenceOntologyTerm'
        ];

如果您需要对原始字符串（而不是副本）的引用，则只需在 $_ （所以它会是地图内的 \$_->{name} ）。

Answer 2

$class->[0]{reference} 是一个数组引用，所以你必须用@{}取消引用它：

@{$class->[0]{reference}}

是'整个数组'，你可以然后在末尾使用切片语法来获取其中的一部分：

@{$class->[0]{reference}}[0..3]

从那里您将使用哈希引用数组，因此您必须使用 for 或 map< 对其进行迭代/代码>。