將2個數組/哈希合併爲1個變量Perl

Question

我有2個變量在表單提交時返回。我需要將這些值合併到1個可用於稍後創建SQL的變量中。
我怎樣才能得到的結果是所有的值工會： 即location_setting =「409」，「405」和狀態=「501」，「137」，「124」

這裏是我當前的代碼，但是從H2

use Data::Dumper; 

my $h1 = { 'location_setting' => [ '409' ], 'status' => [ '501' ] }; 

my $h2 = { 'status' => [ '137', '124' ], 'location_setting' => ['405'], 'classification' => ['0']}; 

my $x = {%$h1, %$h2}; 

print Dumper $x; 

Answer 1

use List::Util qw(uniq); 

my %h = 
    map { 
     $_ => [ 
     uniq 
      $h1->{$_} ? @{ $h1->{$_} } :(), 
      $h2->{$_} ? @{ $h2->{$_} } :(), 
     ] 
    } 
     uniq 
     keys(%$h1), keys(%$h2); 

如果你有很多哈希散列或一個可變數量的呼嚕只值，

use List::Util qw(uniq); 

my @hashes = ($h1, $h2, ...); 

my %h = 
    map { 
     my $key = $_; 
     $key => [ uniq map @$_, grep $_, map $_->{$key}, @hashes ] 
    } 
     uniq map keys(%$_), @hashes; 

Answer 2

use Data::Dumper; 
use List::Util qw(uniq); 

my $h1 = { 'location_setting' => [ '409' ], 'status' => [ '501' ] }; 

my $h2 = { 'status' => [ '137', '124' ], 'location_setting' => [], 'classification' => ['0']}; 

my %x; 
foreach my $h1key (keys %{$h1}) { 
    push @{$x{$h1key}}, @{${$h1}{$h1key}}; 
} 

foreach my $h2key (keys %{$h2}) { 
    push @{$x{$h2key}}, @{${$h2}{$h2key}}; 
} 

@$_ = uniq @$_ 
    for values(%x); 

my $x = \%x; 
print Dumper $x;