Perl 基于某个键连接 2 个哈希

Question

嗨，我有两个哈希值 %Asset 和 %Activity

%Asset
Name,Computer Name
David,X
Clark,Y
Sam,Z

%Activity
Name,Activity
David,A
Clark,B
Sam,C
David,D
Clark,E
Sam,F

第二个哈希的名称重复了多次（可以超过 2 个）.. 我想得到一个带有简洁信息的哈希.. 类似

Name,Computer Name,Activity
David,X,A&D
Clark,Y,B&E
Sam,Z,C&F

我的想法是伪代码；

foreach (@Activity{qw[Name]}) {
    push @Asset{qw[Name Activity]}, $Activity['Activity']

}

Answer 1

你想要的是散列的散列。从概念上讲，您可以将有关资产的所有信息组合到一个哈希中。

my %dave = (
    name          => "Dave",
    computer_name => "X",
    activity      => "A"
);

然后这会进入一个更大的散列，其中包含以它们的名称为键的所有资产。

$Assets{$dave{name}} = \%dave;

如果您想查找 Dave 的活动...

print $Assets{Dave}{activity};

您可以提取有关 Dave 的所有信息并将其作为散列引用传递。

 my $dave = $Assets{Dave};
 print $dave->{activity};

这种结构不可避免地会导致将资产建模为对象。

您可以在Perl Data Structures Cookbook 中了解有关哈希的更多信息。