Perl verketten 2 Hashes basierend auf einem bestimmten Schlüssel

Question

Hallo Ich habe zwei Hashes% Vermögens &% Aktivität

%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 

Der zweite Hash hat den Namen mehrere Male wiederholt (kann mehr als 2 sein) .. Ich möchte Holen Sie sich einen Hash mit der prägnanten Information .. etwas wie

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

meine Idee in einem Pseudo-Code Art der Art ist;

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

} 

Answer 1

Was Sie wollen, ist ein Hash von Hashes. Konzeptionell würden Sie alle Informationen zu einem Asset in einem einzigen Hash kombinieren.

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

Dann geht dies in einen größeren Hash aller Assets, die durch ihren Namen eingegeben werden.

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

Wenn Sie Daves Aktivität finden ...

print $Assets{Dave}{activity}; 

Sie können alle Informationen über Dave herausziehen und es um als Hash-Referenz übergeben.

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

Diese Art von Struktur führt unweigerlich zur Modellierung Ihrer Assets als Objekte.

Sie können mehr über Hashes von Hashes in der Perl Data Structures Cookbook lernen.