perl ...使用@array项目创建一个％哈希的水平儿童

Question

我一直在这段时间里敲我的头，并搜索了许多方式。我敢肯定，这将归结为真正的基础。

我有一个@array中的数据，我想以％哈希移动到树上。

这可能更适合JSON？但是我以前从未研究过，也不需要节省/还原这些信息。

需求：

创建一个可以彼此嵌套的USB设备的依赖树，可以通过轮毂（设备B）和最后的根（Devicea）跟踪终点（Devicec）。

示例：

简化（我希望...这不是来自实际更长脚本）：

我想以这种格式转换一个数组：

my @array = ['deviceA','deviceB','deviceC'];

多维哈希等于：

my %hash = ('deviceA' => { 'deviceB' => { 'deviceC' => '' } } )

那会倾倒：

$VAR1 = {
          'deviceA' => {
                         'deviceB' => {
                                        'deviceC' => ''
                                      }
                       }
        };

仅查看单个设备， 't有必要，但我正在建立一个iommu -＆gt; PCI设备 - ＆GT;包含许多设备的USB图。

注意：

• 我正在尝试避免安装CPAN模块，因此脚本是类似的系统（Proxmox ve），
• 最后一个设备（上面的Devicec）没有孩子
  • value''是可以的
  • Undef可能会起作用
  • 混合类型可以工作，但我需要知道如何设置
• 我永远不需要修改或操纵哈希后，
• 我不知道正确的方法重复@array以填充百分比的孩子。 *我想要每个USB设备的水平数据，
• 我会切换到对象/软件包，但是每个设备都可以拥有不同的孩子（或无），因此知道对象名称不可行
  • 一些USB设备没有孩子（根轮）...类似于％哈希=（'devicea'=＆gt;''）
  • 有些有1个孩子是最终设备...类似于％hash =（'devicea'=＆gt; {'deviceb'=＆gt;''}）
  • 有些通过其他集线器之间有多个步骤...类似于％hash =（'devicea'=＆gt; {'deviceb'=＆gt; {'devicec'=＆gt;''}}） 或更多

起点：

这是基本的且不完整的，但会运行：

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper qw(Dumper);

# data in from parsing usb device path:
my @array = ['deviceA','deviceB','deviceC'];
# needs to be converted to:
my %hash = ('deviceA' => { 'deviceB' => { 'deviceC' => '' } } );

print "\n\%hash:\n" . Dumper \%hash;

pseudo-code

本节没有任何形式的工作代码。我只是想记下我的想法。我知道格式是错误的，我已经尝试了多种方法来创建此功能，并且 我看起来甚至是Dumber 显示我的所有尝试： ）

我是Refs的新手，我不会尝试在这里找到它。下面的想法是：

• @array中的每个项目：
  • 创建一种可以使用下一个迭代来放置下一个孩子的方法（当前哈希的参考或副本）
  • 作为上一个迭代的孩子，附上一个空价值（如果有进一步的迭代，可以附加）
  ）

my @array = ['deviceA','deviceB','deviceC'];
my %hash = {};
my %trackref;
for (@array) {
  %trackref = %hash; # a copy of the existing that won't change when %hash updates
  $hash{last_child} ::append_child:: $_;
}

Answer 1

您实际上很接近，但是似乎您需要更好地了解参考文献。 perldoc perlref 可能是理解参考文献的好起点。

在查看解决方案之前，您的代码中有一些错误：

• my @array = [...];：[]创建一个arrayref，而不是阵列，这意味着@array实际上存储一个标量项目：对另一个数组的引用。使用（）初始化一个数组：my @array =（...）;。

• 我的％hash = {};：同样，{}创建hashref，而不是哈希。这意味着该行将单个hashref存储在％hash中，这将引起此警告：参考可以找到在hash.pl line 上预期的尺寸均匀列表（因为哈希包含键值，您只提供了一个键）。对于简单（即，不是hashref）哈希，请使用（）。但是，在这种情况下，您无需初始化％hash：我的％hash; and 我的％hash =（）做相同的操作事物（也就是说，创建一个空的哈希）。

• ％trackRef =％hash;在％hash中复制hash in ％trackref。这意味着，与“ TrackRef”的名称相反，％TrackRef不包含对任何事物的引用，而是％hash的副本。使用\％hash创建对％hash的引用。
  请注意，如果您已经有hashref，则将其分配给另一个变量将复制引用。例如，如果您做我的$ hash1 = {};我的$ hash2 = $ hash1，然后$ hash1和$ hash2参考相同的hash。

因此，解决这些问题时，我们会得到：

my @array = ('deviceA','deviceB','deviceC');
my %hash;
my $trackref = \%hash;
for my $usb (@array) {
    $trackref->{$usb} = {};
    $trackref = $trackref->{$usb};
}

print Dumper \%hash;

输出：

$VAR1 = {
          'deviceA' => {
                         'deviceB' => {
                                        'deviceC' => {}
                                      }
                       }
        };

我所做的主要更改是替换您的$ hash {last_child} :: append_child :: $ _; by $ $ TrackRef-＆gt; {$ _} = {};。但是这个想法保持不变：作为上一个迭代的孩子附上一个空白值以重复使用您的单词。

为了帮助您更好地理解代码，让我们看看循环中逐步发生的情况：

• 在第一次迭代之前，％hash是空的，$ trackref参考％哈希。

• 在第一次迭代中，我们将devicea =＆gt放置； {} in $ trackRef（或者，更详细的是，我们将{}与键devicea In $ trackRef相关联）。由于$ trackRef参考％hash，因此puts devicea =＆gt; {}在％hash中。然后，我们存储在$ trackRef此新的{}中，这意味着$ trackRef现在参考$ $ hash { devicea}。

• 在第二次迭代中，我们将deviceb =＆gt放置； {}在$ trackref中。 $ TRACKEREF参考$ hash {devicea}（我们在上一个迭代中创建的），这意味着％hash现在是（ devicea =＆gt; {deviceb =＆gt; {}}）。然后，我们存储在$ TRACKREF新{}。

• 等等...

您会注意到，在最内向的哈希中，{}与键devicec关联。当迭代哈希时，因此您可以知道您是否在结束时执行之类的事情，如果（％$ hash）（而不是（而不是）如果（$ hash） if（如果最后一个{}将是undef或''）。让我知道这是否是一个问题：我们可以添加一些代码将此{}转换为undef（另外，您可以自己做，这将是一个很好的习惯习惯参​​考）

---

次要说明：@array和％哈希是差的数组和哈希名称，因为@已经指示一个数组和％已经表示哈希。您可能仅将这些名称用于这个小示例作为您的问题，在这种情况下，没有问题。但是，如果您在实际代码中使用这些名称，请考虑更改它们的更明确的内容... @USB_DEVICES和％usb_devices_tree也许？