Question

How to merge dictionaries in Perl

Answer 1

use strict;
use warnings;

my %dict1 = ("Perl" => ".pl", "Start" => 1987, "Implementation" => "c");
my %dict2 = ("Functional" => "Programming", "Designed by" => "Larry Wall");

my %merged;
$merged{$_} = [$dict1{$_}] for keys %dict1;
push @{$merged{$_}}, $dict2{$_} for keys %dict2;
printf "%s %s\n", $_, join ', ', @{$merged{$_}} for sort keys %merged;




## run:
##
## Designed by Larry Wall
## Functional Programming
## Implementation c
## Perl    .pl
## Start   1987
## 

 

70+ SQL courses for beginners and professionals