Hinzufügen mehrerer Werte zum gleichen Schlüssel in Perl Hash

Question

Ich habe tow Hash.

% hash1:

cavallaro; amg; 
gariboldi; amg; 
dalfabbro; mdg_dig; 
valerio; apb_fmtrd; 

% hash2:

cavallaro; 32; 
gariboldi; 6; 
dalfabbro; 62; 
valerio; 19; 

Ich möchte sie so durch Schlüssel combinate;

cavallaro; 32; amg; 
gariboldi; 6; amg; 
dalfabbro; 62; mdg_dig; 
valerio; 19; apb_fmtrd; 

Wie würde ich mehrere Werte für den gleichen Schlüssel hinzufügen. Bitte, alle Vorschläge werden geschätzt.

Answer 1

Sie können an jeder Taste eine Array-Referenz gespeichert werden:

#! /usr/bin/perl 
use strict; 
use warnings; 

my %hash1 = qw(cavallaro amg 
       gariboldi amg 
       dalfabbro mdg_dig 
       valerio apb_fmtrd); 

my %hash2 = qw(cavallaro 32 
       gariboldi 6 
       dalfabbro 62 
       valerio 19); 

my %r; 
for my $k1 (keys %hash1) { 
    $r{$k1} = [ $hash2{$k1}, $hash1{$k1} ]; 
} 

use Data::Dumper; print Dumper \%r; 

Ausgang:

$VAR1 = { 
      'gariboldi' => [ 
          '6', 
          'amg' 
         ], 
      'valerio' => [ 
         '19', 
         'apb_fmtrd' 
         ], 
      'dalfabbro' => [ 
          '62', 
          'mdg_dig' 
         ], 
      'cavallaro' => [ 
          '32', 
          'amg' 
         ] 
     };