使用 Perl 将一个散列插入另一个散列

Question

我尝试了许多不同版本的使用 push 和 splice，但似乎无法根据需要组合两个哈希。尝试将第二个哈希值插入到“Item”数组中的第一个哈希值中：

(
  ItemData => { Item => { ItemNum => 2, PriceList => "25.00", UOM => " " } },
)

(
  Alternate => {
    Description  => "OIL FILTER",
    InFile       => "Y",
    MfgCode      => "FRA",
    QtyAvailable => 29,
    Stocked      => "Y",
  },
)

我需要将第二个“Alternate”哈希插入到第一个哈希的“Item”数组中以获得此结果：

(
  ItemData => {
    Item => {
      Alternate => {
        Description  => "OIL FILTER",
        InFile       => "Y",
        MfgCode      => "FRA",
        QtyAvailable => 29,
        Stocked      => "Y",
      },
      ItemNum => 2,
      PriceList => "25.00",
      UOM => " ",
    },
  },
)

有人可以建议我如何做到这一点吗？

Answer 1

假设您有两个哈希引用，这很简单。

my $item = {
    'ItemData' => {
        'Item' => {
            'PriceList' => '25.00',
            'UOM'       => ' ',
            'ItemNum'   => '2'
        }
    }
};

my $alt = {
    'Alternate' => {
        'MfgCode'      => 'FRA',
        'Description'  => 'OIL FILTER',
        'Stocked'      => 'Y',
        'InFile'       => 'Y',
        'QtyAvailable' => '29'
    }
};

$item->{ItemData}->{Item}->{Alternate} = $alt->{Alternate};

这里的诀窍不是将$alt 实际合并到$item 的某个部分，而是只取您想要的特定部分并将其放在您想要的位置。我们从$alt 中取出Alternate 键并将其内容放入$item 内部的新Alternate 键中。

Adam Millerchip 在因此删除的评论中指出这不是副本。如果您在将$alt->{Alternative} 粘贴到$item 后更改了$alt->{Alternative} 内部的任何键，则$item 内部的数据也会更改，因为我们正在处理引用。

$item->{ItemData}->{Item}->{Alternate} = $alt->{Alternate};
$alt->{Alternate}->{InFile} = 'foobar';

这实际上也会将 $item->{ItemData}->{Item}->{Alternate}->{InFile} 的值更改为 foobar，如下所示。

$VAR1 = {
          'ItemData' => {
                          'Item' => {
                                      'ItemNum' => '2',
                                      'Alternate' => {
                                                       'Stocked' => 'Y',
                                                       'MfgCode' => 'FRA',
                                                       'InFile' => 'foobar',
                                                       'Description' => 'OIL FILTER',
                                                       'QtyAvailable' => '29'
                                                     },
                                      'UOM' => ' ',
                                      'PriceList' => '25.00'
                                    }
                        }
        };

引用应该这样做，因为它们只引用某些东西。这就是他们的优点。

要制作真正的副本，您需要取消引用并创建一个新的匿名哈希引用。

#                                        create a new ref 
#                                          deref
$item->{ItemData}->{Item}->{Alternate} = { %{ $alt->{Alternate} } };

这将创建一个浅拷贝。 Alternate 键内的值将是副本，但如果它们包含引用，则不会复制，而是引用。

---

如果您确实想要合并更大的数据结构，其中需要合并多个键的内容，请查看Hash::Merge。