Merge 2 array/Hash into 1 variable Perl

Question

I have 2 variables that are returned on form submission. I need to merge the values into 1 Variable that I can use to create SQL later on.
How can I get results that is union of all the values: i.e. location_setting = '409','405' and Status = '501', '137', '124'

Here is my current code, but spits only values from 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;

I think ideally not duplicated, it won't matter to the SQL creation status in (501, 501) will list same results — Kris1511
– Kris1511, Commented Aug 3, 2017 at 19:22

ikegami · Accepted Answer · 2017-08-03 19:48:28Z

2

use List::Util qw( uniq );

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

If you have lots of hashes or a variable number of hashes,

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;

edited Aug 3, 2017 at 19:48

answered Aug 3, 2017 at 19:41

ikegami

391k17 gold badges291 silver badges555 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

ikegami · Accepted Answer · 2017-08-04 03:24:52Z

1

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;

edited Aug 4, 2017 at 3:24

ikegami

391k17 gold badges291 silver badges555 bronze badges

answered Aug 3, 2017 at 22:05

Kris1511

3004 silver badges15 bronze badges

5 Comments

ikegami Over a year ago

Why are you using Data::Dumper if you're (stupidly) against external libraries?

ikegami Over a year ago

Would have been nice to credit the person from which you copied this.

Kris1511 Over a year ago

still learning perl, sr folks don't want to import any library ... not my call

ikegami Over a year ago

So why did you (Data::Dumper, and hopefully strict and warnings)?

zdim Over a year ago

I think that you must quote sources if you copy a substantial portion of it. This one's copy-pasted. I suggest that you edit your post and add a link to where it's taken from.

Collectives™ on Stack Overflow

Merge 2 array/Hash into 1 variable Perl

2 Answers 2

Comments

5 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

5 Comments

Your Answer

Sign up or log in

Post as a guest

Related