将哈希与某些键的数组结合起来

Question

我对 perl 比较陌生，而且我已经坚持了好几天了。希望你能帮助我。

我使用两个文件，因为我必须事先处理它们，所以我将对其进行简化：

file_one 与 names (name_1, name_2, name_3...) 和 numbers (number_1, number_2, number_3...) 的列表分别关联

和file_two 以及numbers（number_2 和 number_6）和items（与 number_2 相关联的 item_a、item_b 和与 number_6 相关联的 item_b、item_c）的列表

我的想法是对两个文件进行哈希处理并将它们组合起来。我卡住的地方是当我需要将项目列表加入散列（数组的散列）然后使用它时。所以第一个哈希工作正常，但第二个有问题。

我尝试使用push (@{ $hash2{$numbers} }, $items)，但由于我使用的参考，我不知道如何将它与另一个结合起来。

最后的任务是比较两个名称，以获取它们共享的项目。如果可以只使用 perl 并尽可能不使用任何模块，那就太好了。

非常感谢

Answer 1

如果我对你的理解正确，你有这个：

foo => 1
bar => 2
baz => 3

那么你有：

2 => a, b
3 => b, c

并且您想知道bar 和baz 共享哪些项目（例如）。

一种选择是将它们放入SQLite 数据库中的两个表中并使用SQL。这可能是处理此类关系数据的最简单、最灵活和最高效的方式。特别是如果它有很多，特别是如果你想对它进行很多不同的搜索。这避免了编写一堆自定义代码和可能越来越复杂的数据结构。

---

在 Perl 中进行，这是一个草图。

首先，将包含叶子（项目不指向其他任何内容）的第二个文件读入数组散列。您最终会得到如下结构：

$nums2items{2} = [qw(a, b)];

然后将第一个文件读入哈希，但不是将数字存储为值，而是存储 %nums2items 引用的内容。

$names2items{foo} = $nums2items{1};

现在如果您想检查bar 和baz 是否共享任何内容，您可以获取数组并找到它们与Array::Utils 的交集。

use Array::Utils qw(intersect);

print join ", ", intersect( @{$names2items{bar}}, @{$names2items{baz}});

如果您要经常这样做，并且项目的顺序并不重要，那么将项目存储为哈希会更有效。这避免了必须对两个列表进行排序和比较。这就是intersect 所做的事情，将一个列表转换为哈希（或集合）并将其与另一个列表进行比较。

use strict;
use warnings;
use v5.10;

my %nums2items = (
    2   => { a => 1, b => 1,         d => 1 },
    3   => {         b => 1, c => 1, d => 1, e => 1 },
);
my %names2nums = (
    bar => $nums2items{2},
    baz => $nums2items{3}
);

# Take the intersection in O(n) time.
say join ", ", grep { $names2nums{bar}{$_} } keys %{$names2nums{baz}};

使用这样的散列，其中键是事物，值是 1，是表示集合的一种非常常见且有效的方式。

或者您可以使用Set::Tiny 模块。这是非常直接的。如果您想学习如何在 Perl 中使用集合，我强烈建议您阅读它的源代码。

Answer 2

从您对 Schwern 的评论看来，您的文件看起来像这样：

foo, 1
bar, 2
biz, 3
bas, 4

和

1, jacks blue horse
2, the green horse
3, jacks
4, bing

并且您成功地将它们读入两个散列，其中逗号之前的值作为键，逗号之后的值作为值。现在你要明智地使用单词并打印出它们共同的单词。您不想使用任何模块，而是在原始 Perl 中使用。

首先，如果是数字键，为什么第二个不是数组数组而不是哈希？

其次，你为什么要合并它们？为什么不使用嵌套循环：

my @key_list = keys %hash_1;
while ( @key_list )
   {
   my $curr_key = shift @key_list;
   for my $next_key ( @key_list )
      {
      my @curr_list = @{$hash_2{$hash_1{$curr_key}}};
      my @next_list = @{$hash_2{$hash_1{$next_key}}};
      while ( @curr_list )
         {
         my $curr_word = shift @curr_list;
         for my $next_word ( @next_list )
            {
            print "$curr_key and $next_key share $curr_word\n"
               if $curr_word eq $next_word;
            }
         }
      }
   }

这有点蛮力，但它可以完成工作。相反，您可以使用出色的 Set:: 模块。了解和使用 Perl 或 C++ 等现代语言的一部分是了解标准和通用库并使用它们。