在Perl中将散列数组转换为标量值数组

Question

我引用了这样的哈希数组

[
    {
        'parameters'              => '',
        'default_init_for_config' => '1',
        'name'                    => 'CWG.BasicCmode.sim',
        'init'                    => 'config/CWG.BasicCmode.sim'
    },
    {
        'parameters'              => '',
        'default_init_for_config' => '0',
        'name'                    => 'CWG.BasicCmode.MFA.sim',
        'init'                    => 'config/CWG.BasicCmode.MFA.sim'
    },
    {
        'parameters'              => '',
        'default_init_for_config' => '0',
        'name'                    => 'NoInit',
        'init'                    => 'config/NoInit'
    },
    {
        'parameters'              => '',
        'default_init_for_config' => '0',
        'name'                    => '2Vsim.mcc',
        'init'                    => 'config/2Vsim.mcc'
    },
]

我只想提取键name的值，并将其分配给同一个数组。

我删除了所有其他的钥匙，得到了这样的信息：

[
    {
        'name' => 'CWG.BasicCmode.sim'
    },
    {
        'name' => 'CWG.BasicCmode.MFA.sim'
    },
    {
        'name' => 'NoInit'
    },
    {
        'name' => '2Vsim.mcc'
    },
    {
        'name' => 'FakeAFF_HA.sim'
    },
    {
        'name' => 'ISCSI.sim'
    },
    {
        'name' => 'CWG.ExtendedCmode.sim'
    },
    {
        'name' => 'CWG.BasicCmodeNonHA.sim'
    },
    {
        'name' => '2Vsim.FakeAFF.mcc'
    },
]

现在该怎么做？

输出应该是

[
    'CWG.Basicmode.sim',
    'CWG.BasicCmode.MFA.sim',
    'NoInit',
    ...
]

Answer 1

若要将散列数组转换为要从给定键的散列构造的纯量值数组，可以使用map。例如，假设每个散列都有一个name键，我们可以将所有这些键的值放在一个新的数组中，如下所示：

my $new_array_ref = [map { $_->{name} } @$array_ref];